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SECTION  I 
INTRODUCTION 


With  the  design  and  development  of  inertial  sensing  sys- 
tems and  laser  beam  control  systems,  angular  vibration  mea- 
surements and  predictions  have  become  as  important , and  in 
some  cases  more  important,  than  translational  vibration  mea- 
surements and  predictions.  Also,  very  small  amplitudes  of 
angular  vibration,  on  the  order  of  a few  microradians,  have 
become  important,  especially  in  the  design  of  airborne  laser 
beam  control  systems.  Angular  vibration  is  the  major  factor 
in  beam  jitter  of  laser  systems.  Beam  jitter  is  dynamic  mis- 
alignment of  a laser  beam  due  to  dynamic  motion  of  the  compo- 
nents of  the  optical  train  through  which  it  passes.  Beam 
jitter  is  normally  random  in  time  and  is  specified  by  the  root 
mean  square  value.  The  optical  train  consists  of  both  station- 
ary and  servo-controlled  mirrors  and  sensors  from  beam  initia- 
tion in  the  laser  device  through  the  pointing  and  tracking 
system. 

Beam  jitter  is  dependent  on  a number  of  factors.  Among 
these  are  mechanical  resonances  of  individual  optical  compo- 
nents and  their  supporting  structures,  dynamic  behavior  of 
the  entire  structure  system,  spacing  of  the  optical  components, 
mounting  system  characteristics,  dynamic  characteristics  of 
the  aircraft,  and  frequency  content  of  loads.  Since  the  laser 
or  electro-optical  system  is  mounted  to  the  aircraft,  and  the 
aircraft  is  subjected  to  many  loads,  such  as  gusts,  turbulence, 
etc.,  the  dynamics  of  the  aircraft  must  be  predicted  accurately. 
The  dynamic  characteristics  of  the  aircraft  that  are  used  for 
design  and  analysis  consist  of  both  translational  and  angular 
vibrations.  The  elastic  modes  of  an  aircraft  may  be  as  low 
as  1 or  2 Hz.  The  lowest  elastic  modes  of  individual  components 
of  a laser  system  may  be  in  the  150  to  300  Hz  range.  Therefore, 
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to  perform  complete  frequency  response  analysis  may  require 
modal  information  from  1 Hz  to  1000  to  2000  Hz. 

The  objectives  of  this  contract  were  (1)  to  develop  tech- 
niques for  predicting  the  low  and  high  frequency  angular  en- 
vironment of  aircraft;  (2)  to  develop  accurate  angular  vibra- 
tion measurement  techniques;  (3)  to  develop  techniques  for 
predicting  the  low  and  high  frequency  angular  vibration  of 
combined  airframe  and  electro-optical  systems;  and  (4)  to 
demonstrate  these  techniques  by  applying  them  to  an  aircraft - 
like  structure  and  comparing  the  results  with  measured  data. 

For  this  report,  low  frequencies  are  defined  as  those  frequen- 
cies for  which  individual  normal  mode  shapes  can  be  predicted 
accurately  or  determined  by  tests. 

The  work  on  this  contract  was  subdivided  into  three 
phases.  The  objective  and  accomplishment  of  Phase  I was  to 
identify  methods  which  could  be  used  to  predict  angular  vibra- 
tion for  both  low  and  high  frequencies.  Literature  searches 
were  performed  to  obtain  information  on  past  experience  in 
the  area  of  angular  vibration.  Also  searched  were  methods 
and  improvements  to  methods  which  may  be  useful  in  the  pre- 
diction of  angular  vibration  at  low  and  high  frequencies.  For 
low  frequencies,  it  was  decided  the  main  thrust  should  be  di- 
rected towards  obtaining  more  accuracy  per  degree  of  freedom 
in  finite  element  analysis.  This  approach  satisfies  all  of 
the  objectives  for  the  low  frequency  method  and  also  gives  a 
method  which  is  flexible  and  adaptable  for  application  to 
complex  structures.  The  Semi-Loof  shell  element  and  its  com- 
panion beam  element  were  selected  as  the  most  promising  can- 
didates to  meet  this  objective.  The  technique  selected  for 
combining  components  or  structures,  such  as  an  aircraft  and 
an  electro-optical  system,  into  a system  analysis  for  low  fre- 
quencies was  component  mode  synthesis.  The  component  mode  syn- 
thesis technique  treats  each  component  or  structure  in  terms 
of  its  modal  description  (obtained  either  from  tests  or 
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analysis).  For  high  frequency  analysis,  statistical  energy 
analysis  (SEA)  was  selected.  SEA  treats  the  structure  in  terms 
of  some  averaged,  or  statistical,  description.  One  of  the 
most  important  features  of  the  SEA  method  is  its  ability  for 
making  use  of  whatever  level  of  detail  is  available  in  the 
description  of  a structure. 

The  major  emphasis  of  Phase  II  was  the  detailed  develop- 
ment of  the  methods  chosen  during  Phase  I.  For  the  low  fre- 
quency method,  the  approach  taken  was  to  implement  Semi-Loof 
into  the  finite  element  code,  NASTRAN.  As  originally  derived, 
the  Semi-Loof  element  was  for  use  on  static  problems  only. 
Therefore,  the  mass  matrices  for  the  elements  had  to  be 
incorporated.  To  be  able  to  model  complex  structures  such  as 
airframes,  other  enhancements  to  the  element  had  to  be  made. 
Among  these  were  orthotropic  material  properties,  offset  beams, 
smeared  stiffeners,  variable  thicknesses  for  the  shell  elements, 
non-prismatic  beam  geometry,  and  distributed  loads.  The  input 
was  developed  using  NASTRAN  bulk  data  card  formats.  A stress 
recovery  and  a rotational  recovery  capability  were  added.  The 
element  is  incorporated  into  NASTRAN  by  means  of  pre-  and  post- 
processors and  NASTRAN  DMAP  instructions.  The  processors 
incorporate  a matrix  assembly  routine,  and  an  extensive  error 
checking  capability.  A User’s  Manual  for  Semi-Loof  was  written 
and  is  included  in  this  report  as  Appendix  A.  During  Phase  II 
a number  of  sample  problems  were  executed  and  the  results  were 
compared  to  NASTRAN  solutions  and  tests.  The  results  showed 
good  improvement  in  accuracy  per  degree  of  freedom. 

As  stated  earlier,  statistical  energy  analysis  (SEA)  had 
been  chosen  as  the  best  approach  to  predict  the  angular  vibra- 
tion environment  of  aircraft  when  only  an  averaged  or  statis- 
tical description  of  the  structures  is  known.  SEA  has  been 
used  as  a tool  for  acoustical  analysis  in  the  past  but  no  work 
had  been  done  toward  employing  this  method  to  predict  angular 
vibration  environments.  The  theory  of  SEA  was  studied  and  the 
essential  features  of  SEA  which  make  it  attractive  for  the 
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present  purpose  were  identified.  A formula  for  estimating 
coupling  loss  factor  by  the  wave  transmission  method  was 
rederived  without  assuming  response  to  be  in  the  form  of 
traveling  waves.  An  experiment  was  conducted  where  the  wave 
transmission  method  was  used  to  predict  transmitted  power  and 
the  equilibrium  energy  ratio  between  two  coupled  plates.  This 
experiment  demonstrated  that  SEA  could  be  used  to  predict  the 
energy  ratio  and  power  transfer  coefficient  between  coupled 
plates  in  a high  frequency  region  where  finite  element  modeling 
was  impractical.  A relation  was  derived  between  the  r.m.s. 
angle  and  the  vibrational  energy  in  frequency  bands.  An  ex- 
periment was  conducted  to  test  this  relation  and  show  how  r.m.s. 
angular  displacement  can  be  obtained  from  SEA  results  without 
detailed  knowledge  of  individual  mode  shapes  or  natural 
frequencies.  Software  was  developed  for  the  minicomputer- based 
equipment  used  to  perform  these  experiments . 

A study  was  also  conducted  on  relationships  between  linear 
and  angular  vibration  for  various  structural  components.  A 
detailed  study  of  the  simplest  structural  system  possessing 
both  linear  and  angular  degrees  of  freedom  was  conducted.  The 
ratio  of  the  mean  square  angular  to  mean  square  linear  displace- 
ment was  investigated  for  simply-supported  beams,  a simply- 
supported  flat  plate,  a free-free  beam,  and  a curved  stiffened 
panel.  A simple  relation  between  mean  square  angular  to  mean 
square  linear  displacement  was  derived  using  wave  theory. 

In  order  to  verify  the  prediction  methods  developed, 
reliable  experimental  data  had  to  be  obtained,  especially 
dynamic  rotations  at  specific  points.  The  measurement  method 
used  to  obtain  these  rotations  was  differencing  of  translational 
acceleration  signals.  A better  quantitative  understanding  of 
limitations  and  error  sources  was  desirable.  Therefore,  theo- 
retical derivations  were  developed  for  estimating  errors  intro- 
duced by  noise  in  individual  channels,  frequency-dependent  gain 
and  phase  mismatching  between  channels,  and  flexure  of  the 
mounting  surface.  Effects  of  the  first  two  error  sources  were 
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demonstrated  by  experiment  and  it  was  demonstrated  that  mis- 
match error  can  be  reduced  by  appropriate  data  processing. 

Also,  an  expression  was  derived  for  coherence  of  a measured 
angular  frequency  response  when  angular  response  was  obtained 
by  differencing. 

The  major  objective  of  Phase  III  was  to  apply  the  methods 
developed  to  a complex  structure.  A fuselage  section  of  a 
fighter  aircraft  was  chosen  as  the  test  structure.  This  struc- 
ture was  chosen  because  it  was  a fairly  complex  structure  to 
analyze.  A finite  element  model  of  the  fuselage  was  developed 
using  the  Semi-Loof  elements.  All  of  the  features  that  were 
developed  for  this  element  were  employed  in  the  modeling.  An 
eigenvalue  analysis  of  the  structure  was  performed  to  deter- 
mine the  normal  modes.  A frequency  response  analysis  was  per- 
formed with  random  noise  input  at  three  different  points.  The 
responses  at  a number  of  translational  and  rotational  degrees 
of  freedom  were  output.  A test  of  the  fuselage  was  also  per- 
formed. The  fuselage  was  supported  on  a low  stiffness  mounting 
system  and  driven  by  a small  shaker  system  at  three  different 
locations.  Both  force  to  linear  acceleration  and  force  to 
angular  acceleration  transfer  functions  were  measured  for  drive 
and  response  points  corresponding  to  points  in  the  Semi-Loof 
model.  After  processing  the  data  on  the  minicomputer-based 
modal  analysis  equipment,  the  experimental  data  was  compared 
to  the  results  predicted  by  Semi-Loof. 

Section  II  of  this  report  described  the  literature  searches 
performed  to  obtain  information  on  past  experience  in  the  area 
of  angular  vibration.  Also  searched  were  methods  and  improve- 
ments to  methods  which  might  have  been  useful  in  the  prediction 
of  angular  vibration  at  low  and  high  frequencies.  This  section 
also  discusses  some  of  the  methods  looked  at  and  discarded,  and 
the  reasons  behind  the  selection  of  the  methods  chosen  for 
further  study. 
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Section  III  describes  the  work  performed  on  the  Semi-Loof 
elements,  which  was  the  main  low  frequency  method.  This  sec- 
tion gives  a review  of  the  theory  of  finite  elements  in  general 
and  the  Semi-Loof  element  in  particular.  The  implementation  of 
Semi-Loof  into  NASTRAN  is  described  in  detail.  Comparisons  and 
evaluations  are  made  using  small  simple  problems,  results  of 
analysis  using  other  elements,  and  test  results. 

Section  IV  describes  the  high  frequency  method,  which  is 
statistical  energy  analysis  (SEA).  A brief  summary  of  the 
theory  of  SEA  is  presented.  Derivations  of  relations  and  ex- 
periments are  described  which  predict  transmitted  power,  the 
equilibrium  energy  ratio,  and  angular  response  between  two 
coupled  plates. 

Section  V is  a study  of  the  relationship  between  linear 
and  angular  vibration  for  various  structural  components. 

Section  VI  describes  the  work  performed  on  some  quantita- 
tive methods  of  estimating  the  reliability  of  measured  power 
spectral  density  functions  or  frequency  response  functions  for 
the  case  where  the  response  quantity  is  an  angular  motion  ob- 
tained by  differencing  of  signals  from  linear  transducers. 

Section  VII  describes  the  fuselage  finite  element  model 
and  the  dynamic  test  performed  on  this  fuselage.  A comparison 
of  the  results  of  the  test  and  analysis  is  given. 

Section  VIII  gives  a summary  of  the  work,  draws  conclusions 
from  the  progress  made,  and  briefly  describes  additional  work 
which  should  be  done  in  the  future. 
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SECTION  II 
BACKGROUND 


2 . 1 LITERATURE  SEARCH 

first  task  started  in  Phase  I was  3 literature  search 
to  determine  what  had  been  done  in  the  past  for  predicting 
angular  vibration  as  well  as  high  frequency  translational 
vibration.  As  usual  in  an  extensive  literature  search,  one 
source  led  to  another,  often  via  topics  which  were  not  directly 
related  to  the  immediate  problem.  Some  of  the  most  useful  in- 
formation and  sources  were  obtained  through  personal  communica- 
tion. 

Initial  searching  revealed  little  on  angular  vibration  as 
such  which  was  not  previously  known.  However,  numerous  possi- 
bilities were  identified  within  the  overall  field  of  vibration 
analysis  which  might  lead  to  improved  methods  for  prediction  of 
angular  vibration. 

The  data  bases  searched  included  DDC  Technical  Reports, 

NTIS , NASA,  and  COMPENDEX.  The  DDC  (Defense  Documentation 
Center)  Technical  Reports  data  bank  contains  more  than  1,200,000 
records  dating  back  to  March,  1953.  DDC  receives  these  reports 
from  defense  facilities  and  their  contractors  who  are  required 
to  submit  to  DDC  copies  of  each  report  that  records  scientific 
and  technical  data  from  defense  sponsored  research,  development 
test,  and  evaluation.  NTIS  (National  Technical  Information 
Service)  contains  the  complete  Government  Reports  Announcements 
(GRA)  file  from  the  National  Technical  Information  Service. 

It  contains  641,000  citations  of  government  research  from  over 
240  agencies.  The  file,  which  dates  back  to  1964,  is  updated 
every  two  weeks,  and  is  growing  at  the  rate  of  78,000  abstracts 
per  year.  The  NASA  data  base  contains  the  results  of  worldwide 
research  and  development  activities  in  aeronautics,  space,  and 
supporting  disciplines.  It  now  contains  nearly  a million 
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documents  which  are  abstracted  and  indexed.  COMPENDEX  is  a 
machine  readable  version  of  the  Engineering  Index  data  base 
which  provides  abstracts  and  an  index  to  the  world’s  signifi- 
cant engineering  literature  and  conference  proceedings  covering 
the  time  span  of  1970  to  the  present.  This  data  base  covers 
3,500  journals,  publications,  and  papers  from  the  proceedings 
of  conferences  as  well  as  selected  government  reports  and  books. 
It  contains  over  90,000  abstracts  and  655,000  citations. 

The  major  topics  that  were  searched  included  (1)  linear 
vibration  of  aircraft,  (2)  angular  vibrations,  (3)  finite 
elements  or  finite  differences  in  combination  with  angular 
vibration,  high  frequencies,  and  statistics,  (4)  high  fre- 
quency methods,  (5)  acoustical  methods,  and  (6)  statistical 
energy  methods.  These  major  topics  led  to  many  minor  topics 
which  were  investigated  to  the  extent  of  determining  the  use- 
fulness in  predicting  angular  vibration. 

Automated  searching  on  the  key  phrases  "finite  element" 
and  "angular  vibration"  was  unproductive.  "Angular  vibration" 
often  turns  out  to  mean  torsional  vibration  of  shafts.  There 
simply  does  not  seem  to  have  been  any  finite  element  or  other 
numerical  work  that  focused  specifically  on  angular  vibrations 
as  that  term  is  understood  in  the  current  effort.  Consequently, 
the  searching  strategy  for  the  analytical  portion  of  this  effort 
was  shifted  rather  early  toward  developments  that  might  contri- 
bute indirectly  to  angular  vibration  predictions.  This  broad- 
ened the  possibilities  immensely  (for  example,  a DDC  search 
listed  some  1300  references  under  "finite  element  ) • Narrowing 
the  search  to  shell  elements,  searching  continued  mostly  in  a 
manual  mode,  with  many  papers  leading  to  others  through  refer- 
ences. Most  of  these  were  concerned  with  isoparametric  elements 
which  have  received  the  most  attention  from  researchers.  A 
number  of  papers  in  this  vein  were  reviewed.  However,  the 
Semi-Loof  element,  which  was  adopted  for  study  and  implementa- 
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tion,  was  obtained  through  a personal  communication.  Subse- 
quently, other  papers  on  Semi-Loof  were  discovered  in  the 
literature . 

As  noted  previously  in  this  section,  literature  searching 
under  key  words  such  as  "angular  vibration"  yielded  almost  no 
research  or  development  work  not  previously  known.  The  few 
references  uncovered  on  angular  vibration  of  any  kind  were  con- 
cerned with  specific  pieces  of  hardware  rather  than  prediction 
methods.  For  high  frequency  angular  vibration,  the  search 
strategy  was  to  investigate  high  frequency  and  statistical 
methods  in  general  without  reference  to  any  particular  type  of 
response  variable.  A list  of  key  words  and  phrases  used  in  the 
computer-aided  searches  is  given  in  Table  1. 

TABLE  1 

KEY  WORDS  USED  FOR  HIGH-FREQUENCY 
VIBRATION  LITERATURE  SEARCH 

angular  vibration 
high  frequency  vibration 
high  frequency  response 
blast  response 

(statistical)  and  (vibrations) 
statistical  energy  methods 
high  frequency  approximations 
mode  slopes 
mode  rotations 

(regression  analysis)  and  (vibrations) 

spatial  averaging 

spatial  covariance 

mode  [modal ] averaging 

mode  [modal]  covariance 

(statistical)  and  (structures) 
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spatial  [spatially]  random  processes 
(covariance)  and  ( vibration[s] ) 

(autocovariance)  and  ( vibration[s] ) 

Sommerf eld-Watson  transformation 
Poisson  summation 

It  quickly  became  apparent  during  the  literature  search 
that  a well  developed  body  of  theory  called  Statistical  Energy 
Analysis  (SEA)  already  existed  and  was  at  least  partially  ap- 
plicable to  the  current  problem.  It  also  became  clear  that  a 
survey  of  this  field  was  not  necessary  because  an  excellent 
survey  and  tutorial  report  had  been  prepared  for  AFFDL  in  1974 
by  R.  H.  Lyon  of  M.I.T.  [1]*.  This  report  was  extremely  valu- 
able in  acquiring  a basic  understanding  of  the  underlying 
theory.  An  extensive  bibliography  organized  by  subject  within 
SEA  is  contained  in  Reference  [1]. 

2.2  SELECTION  OF  LOW  FREQUENCY  METHODS 

The  finite  element  method  has  risen  to  prominence  in 
aircraft  structural  analysis  in  parallel  with  advancing  computer 
capabilities.  Its  primary  appeal  lies  in  its  generality  and 
relative  ease  of  use.  Literature  searching  revealed  thousands 
of  titles  containing  the  term  "finite  element"  of  which  a large 
fraction  would  no  doubt  have  some  bearing  on  the  problems  at 
hand.  Thus,  there  was  never  any  question  that  this  method  would 
be  the  analysis  tool  used  in  the  low  frequency  end  of  the 
angular  vibration  spectrum,  with  perhaps  some  exceptions  for 
special  cases  or  crude  approximations. 

With  finite  elements  so  widespread,  there  has  been  a 
gradual  shift  of  emphasis  away  from  purely  theoretical  develop- 
ments toward  questions  like  cost  effectiveness  and  adaptability 
to  well-established  codes.  In  the  present  work,  the  goal  was 

* Numbers  in  brackets  designate  References  at  end  of  report. 
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to  bring  some  advanced  finite  element  technology  from  a 
"laboratory"  status  to  a production  environment.  In  practice, 
this  means  testing,  evaluating,  and  "idiot-proofing"  an  element, 
and  above  all,  tying  it  to  an  existing  software  system  so  as 
to  take  advantage  of  the  large  investment  in  auxiliary  functions 
that  such  systems  have. 

While  a number  of  theoretically  appealing  elements  were 
reviewed,  many  of  them  were  rejected  mainly  because  they  could 
not  be  used  with  NASTRAN.  The  goal  of  NASTRAN  compatibility 
was  adopted  as  it  became  clear  that  any  other  approach  to 
assembling  finite  element  software  would  be  prohibitive  in  terms 
of  the  effort  required  in  coding,  checking,  training  users,  and 
gaining  their  acceptance. 

Implicit  in  this  approach  is  the  proposition  that  angular 
problems  are  not  fundamentally  distinguished  from  those  of 
translational  vibrations.  There  is  no  way  to  divorce  an  angular 
deformation  from  the  associated  translational  deformation. 
Mathematically,  one  is  the  derivative  of  the  other.  Hence,  the 
pursuit  of  better  angular  vibration  was  embodied  in  a search 
for  better  finite  element  methods  in  general.  In  other  words, 
an  evolutionary  approach  was  taken  rather  than  revolutionary. 

The  authors  began  this  work  with  considerable  experience 
in  application  of  finite  element  techniques  to  aircraft 
structural  analysis,  much  of  it  using  NASTRAN.  Following  is  a 
summary  of  the  procedures  and  rules  of  thumb  evolved  by  the 
authors  in  the  course  of  this  work. 

First,  the  choice  of  mesh  depends  on  a number  of  factors 
The  areas  where  response  is  more  of  interest  need  a finer  mesh. 
Also,  angular  vibrations  generally  require  a finer  mesh  than 
translational  vibrations,  and  if  the  anticipated  rotation  is 
primarily  about  one  axis,  refinement  perpendicular  to  that  axis 
may  be  in  order. 

Boundary  conditions  must  be  handled  carefully,  often  using 
auxiliary  coordinate  systems,  in  order  that  the  allowable 
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motions  in  the  model  reflect  the  actual  situation  as  nearly  as 
possible . 

Eigensolution  strategies  must  be  chosen  carefully.  When 
relatively  high  frequencies  are  desired,  a sweeping  procedure 
such  as  the  Givens  method  is  in  order.  In  this  case,  a conden- 
sation step  is  usually  called  for.  This  may  take  the  form  of 
Guyan  reduction,  or  generalized  "dynamic  reduction,"  both 
available  in  NASTRAN. 

The  debugging  stage  is  just  as  important  as  the  modeling 
stage.  Following  are  some  of  the  checks  that  Anamet  personnel 
routinely  use  in  verifying  a finite  element  model. 

(1)  Apsect  ratios  and  degrees  of  skew  are  checked  for 
plane  and  solid  elements  using  a preprocessor 
developed  by  Anamet. 

(2)  Plots  of  the  undeformed  structure  are  generated. 

Anamet 1 s preprocessors  NASSET  and  SAPLOT  are  sometimes 
used  to  generate  partial  views. 

(3)  The  weight  calculated  from  the  finite  element  model 
is  compared  with  the  actual  weight  of  the  structure. 

(4)  Diagonals  of  the  master  stiffness  and  mass  matrix  are 
checked  if  a singularity  or  near-singularity  is 
suspected . 

(5)  Simple  static  cases  are  run,  usually  with  dead  weight 
acting,  before  dynamics  is  attempted. 

(6)  For  every  NASTRAN  matrix  decomposition,  the  maximum 
ratio  of  matrix  diagonal  to  factor  diagonal  is  noted, 
as  a check  on  the  conditioning  of  the  matrix. 

(7)  The  quantity  is  noted.  For  static  runs  where  an 

equation  of  the  form  Ku  = p is  solved,  a residual 

Ygctor  6P  — p — K u is  calculated.  This  vector, 
which  would  Be  zero~if  no  arithmetic  round-off  were 
present,  has  the  form  of  a load  vector.  Its  magnitude 
is  assessed  by  comparing  the  work  done  by  6P  to  that 

T 

done  by  the  actual  load  p,  i.e.  = 6P  u/pu.  For 

dynamic  runs  the  rigid  body  matrix  X should  be 
singular.  Its  norm  is  calculated  and  compared  to. the 
stiffness  matrix  for  the  rigid-body  coordinates,  i.e. 
e = I 1*1  I / I I Krr I I • In  both  cases,  for  a successful 
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solution,  eq  should  be  near  the  order  of  computer 
precision,  i.e.  10-10  to  10~14. 

(8)  When  eigenvalues  are  extracted,  the  off-diagonal  modal 
mass  term  is  noted.  This  quantity  indicates  how 
nearly  orthogonal  the  eigenvectors  are. 

(9)  When  rigid-body  modes  are  anticipated,  the  correspond- 
ing eigenvectors  are  checked  to  be  sure  that  they  are 
actually  pure  translations  and/or  rotations. 

(10)  The  first  few  elastic  modes  are  checked  for  reason- 
ableness. Frequencies  can  often  be  checked  against 
estimates  made  by  hand.  Mode  shapes  are  checked  with 
plots . 

(11)  Reaction  forces  are  printed  to  insure  that  a con- 
straint introduced  for  the  purpose  of  eliminating  a 
singularity  has  not  inadvertently  caused  a spurious 
reaction  force. 

(12)  Strain  energies  are  sometimes  checked.  A high 
concentration  of  strain  energy  in  one  or  a few 
elements  sometimes  indicates  a modeling  error. 

In  angular  vibration  applications  of  finite  elements  it 
is  important  to  assess  the  quality  of  the  mode  shapes  that  have 
been  computed.  Ideally  one  would  like  to  be  able  to  divide 
mode  shapes  into  three  groups.  First,  "good"  modes;  second, 
modes  that  individually  are  questionable,  but  as  an  aggregate 
possess  reliable  statistical  characteristics;  and  third, 
unreliable  modes.  One  rough  rule  that  can  be  applied  is  to 
assume  that  only  a certain  percentage  of  the  analysis  set 
represents  good  modes.  A clue  to  the  unreliable  modes  (at 
high  frequency)  is  a sudden  fall  off  in  modal  density.  Also, 
one  should  bear  in  mind  the  importance  of  mode  shapes  with 
respect  to  the  response  of  interest.  This  may  be  assessed  by 
requesting  mode  normalization  such  that  each  mode  has  a value 
of  one  at  a specified  degree  of  freedom.  The  modal  mass  would 
then  be  an  indication  of  the  importance  a particular  mode  plays 
with  respect  to  a particular  degree  of  freedom.  This  assessment 
could  be  made  for  a number  of  degrees  of  freedom,  including 
loaded  d.o.f.  as  well  as  response  d.o.f. 
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Very  large  finite  element  models , or  models  which  combine 
finite  element  models  with  test  data,  may  be  executed  with  the 
technique  of  component  modal  synthesis.  In  component  modal 
synthesis,  each  component  is  characterized  in  terms  of  a number 
of  natural  frequencies  and  associated  mode  shapes,  modal  masses, 
modal  stiffnesses,  and  modal  damping.  This  can  be  done  in  three 
different  ways: 

(1)  Perform  a test  using  either  a shaker  or  impulse 
loading.  Record  the  modal  information  listed  above. 

(2)  Perform  a computer  analysis  using  a finite  element 
or  other  appropriate  program. 

(3)  Analyze  the  component  by  hand. 

There  are  two  major  advantages  to  describing  a component 
in  modal  formulation.  First,  the  equations  governing  the 
dynamic  behavior  of  the  component  become  uncoupled.  Second, 
in  the  modal  formulation  it  is  possible  to  obtain  adequate 
accuracy  by  using  only  a subset  of  the  total  modes  of  the 
component . 

The  components  are  then  combined  into  a system  analysis 
by  writing  equations  of  constraint  between  the  interconnecting 
degrees  of  freedom  of  each  component.  These  equations  of 
constraint  are  the  equations  transforming  the  physical  degrees 
of  freedom  to  modal  degrees  of  freedom.  For  each  equation  for 
the  physical  degree  of  freedom,  the  coefficients  of  the  modal 
degrees  of  freedom  are  the  components  of  the  eigenvectors 
associated  with  that  physical  degree  of  freedom. 

The  accuracy  of  the  component  modal  synthesis  technique 
is  dependent  on  several  factors.  First,  the  individual  eigen- 
vectors of  the  components  must  be  accurately  calculated, 
especially  at  the  connection  degrees  of  freedom  (both  transla- 
tional and  rotational).  To  model  a system  up  to  a given 
frequency,  (i.e.,  N Hz.)  each  component's  modal  description 
must  contain  information  greater  than  this  frequency.  A good 
rule  of  thumb  is  to  pass  to  the  system  analysis  modes  for  each 
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component  up  to  one  and  a half  times  the  highest  frequency  of 
interest.  However,  this  is  very  dependent  on  the  problem  and 

the  number  of  connection  degrees  of  freedom.  The  greater  the 

number  of  connection  points , the  greater  the  number  of  modes 
that  must  be  passed.  Not  including  the  higher  modes  in  the 
system  analysis  leads  to  a formulation  which  is  too  stiff  (i.e., 
the  predicted  frequencies  will  be  higher  than  the  actual). 

Using  the  procedures  and  techniques  described,  it  is  seen 
that  large  models  may  be  solved,  and  the  accuracy  of  the  solu- 
tion is  realistic  when  compared  with  the  elements  used. 

Therefore,  the  kinds  of  advances  that  may  bear  on  angular  vibra- 
tion problems  include  more  accuracy  per  degree  of  freedom, 
judicious  approximations  that  improve  cost  effectiveness,  better 
numerical  solution  methods,  and  better  ways  of  recovering 
dependent  response  quantities  (in  this  case,  angular 
deformations).  It  was  decided  that  more  accuracy  per  degree 
of  freedom  would  be  the  most  promising  area,  and  that  led  to  a 
selection  of  a new  element  described  in  Section  III. 

2.3  SELECTION  OF  APPROACH  FOR  HIGH  FREQUENCY  PREDICTION 

The  selection  of  an  approach  for  prediction  of  so-called 
high  frequency  angular  vibration  was  conditioned  by  the  defini- 
tion of  low  vs.  high  frequency  as  stated  in  the  previous  section. 
Modeling  of  a small  stiff  structure  with  a fundamental  mode  at 
500  Hz.  is  not  necessarily  more  difficult  than  modeling  a larger 
structure  with  its  first  resonance  at  5 Hz.  The  difficulty 
occurs  when  a model  must  be  capable  of  predicting  response  to 
inputs  over  a frequency  range  which  contains  a very  large  number 
of  modes.  Angular  responses  are  particularly  difficult  to 
predict  because  their  modal  series  representations  tend  to 
converge  more  slowly  than  do  those  for  translational  responses 
and  thus  more  modes  must  be  known.  Higher  order  modes  will  be 
sensitive  to  structural  details  which  are  too  small  to  model 
economically  and  may  not  even  be  identical  for  structures  built 
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from  the  same  design.  In  effect,  for  high  frequencies,  one 
does  not  have  a fixed  description  of  the  structure  even  in 
physical  coordinates.  The  distinction  between  low  and  high 
frequencies  for  the  purposes  of  this  work  is  thus  a functional 
one.  Low  frequency  analysis  implies  that  properties  of  individ- 
ual vibration  modes  can  be  obtained,  either  by  analysis  or  test. 
High  frequency  analysis  presupposes  that  this  level  of  detailed 
knowledge  is  unavailable. 

This  definition  does  not  rule  out  the  possibility  of  a 
purely  empirical  approach  to  high  frequency  prediction.  In 
fact,  this  has  been  the  basis  for  much  high  frequency  transla- 
tional vibration  work  in  the  past.  One  could  collect  the 
available  data  and  attempt  to  correlate  vibration  levels  with 
flight  conditions,  aircraft  type,  and  some  general  structural 
description.  It  was  decided  in  Phase  I that  this  approach  was 
not  appropriate  for  the  current  contract.  It  would  duplicate 
work  being  done  already  at  AFFDL. 

Based  on  the  above  considerations,  it  was  decided  during 
Phase  I that  the  method  of  Statistical  Energy  Analysis  (SEA) 
was  the  most  promising  candidate.  While  much  of  the  specific 
SEA  theory  was  unfamiliar  to  the  investigators  at  this  point, 
a number  of  attractive  features  were  clear: 

(1)  The  method  does  not  necessarily  require  information 
about  individual  normal  modes  of  a structure  in  order 
to  make  response  predictions.  The  lack  of  such 
information  inevitably  introduces  some  uncertainty 
into  the  predictions  but  this  may  be  acceptable  for 
many  cases.  The  point  is  that  averaged  descriptor 
quantities  such  as  approximate  model  density  and  total 
mass  may  be  sufficient  to  make  useful  first  estimates 
of  response. 

(2)  High  model  densities  may  actually  be  an  advantage. 

Each  mode  contributing  to  response  acts  something 
like  a statistical  degree  of  freedom.  As  more  modes 
contribute,  their  variability  (i.e.  the  uncertainty 
as  to  the  properties  of  any  single  mode)  tends  to 
become  less  important.  For  example,  early  SEA  work 
was  often  associated  with  room  acoustics  where  mode 
counts  in  the  audio  band  may  be  in  the  hundreds  of 
thousands . 
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(3)  It  appeared  that  deterministic  methods  of  analysis 
with  which  the  investigators  were  intimately  familiar 
could  be  used  to  good  effect  in  SEA  modeling.  In 
particular,  certain  aspects  of  large  scale  finite 
element  analysis  and  minicomputer-based  experimental 
modal  analysis  appeared  promising.  It  was  suspected 
that  a higher  level  of  structural  detail  could  be 
incorporated  into  an  SEA  model  by  utilizing  these 
technologies  which  were  not  available  when  most  of 
the  basic  SEA  theory  was  worked  out. 

(4)  SEA  modeling  can  be  attempted  using  structural  descrip- 
tions of  varying  detail.  This  was  considered  essen- 
tial if  a method  were  to  be  usable  during  both 
preliminary  and  prototype  stages  of  design. 

In  hindsight,  the  investigators  are  convinced  that  the 
decision  to  focus  on  SEA  for  high  frequency  predictions  was 
correct. 
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SECTION  III 
LOW  FREQUENCY  METHODS 


Dynamic  problems  in  general,  and  angular  vibration  in 
particular,  require  different  approaches  for  different  fre- 
quency ranges.  We  may  classify  these  two  approaches  as  deter- 
ministic and  statistical.  In  a deterministic  approach,  the 
analyst  models  the  entire  structure  mathematically  in  a way 
that  strives  to  represent  the  behavior  of  any  part  of  it  un- 
der the  most  general  loading.  There  are,  of  course,  limits 
on  the  capability  of  any  mathematical  model  in  terms  of  the 
amount  of  detail  that  can  be  achieved  in  the  predicted  response. 
Ideally,  the  analyst  knows  that  he  can  achieve  greater  accuracy 
as  the  mesh  is  refined,  and  can  determine  some  error  bounds  for 
his  model.  In  the  frequency  domain,  these  limitations  can  be 
expressed  in  terms  of  upper  bounds  on  frequency.  The  lowest 
vibration  modes  almost  always  involve  gross  motions  of  the 
entire  structure,  and  these  modes  are  easy  to  predict  analyti- 
cally (for  example,  a simple  beam  model  may  be  adequate  to 
pick  up  a few  modes  of  a complicated  fuselage).  With  increas- 
ing frequency,  mode  shapes  begin  to  have  wavelengths  at  or  be- 
low the  mesh  spacing,  so  that  the  model  necessarily  begins  to 
break  down.  Aside  from  modeling  errors,  eigenvalue  subroutines 
often  have  numerical  trouble  with  the  higher  modes.  Beyond 
the  range  where  individual  modes  can  be  calculated  accurately 
it  may  be  possible  to  extract  further  information  using  aggre- 
gates of  mode  shapes. 

However,  the  point  is  that  a deterministic  model  must 
break  down,  and  it  is  at  this  point  (or  hopefully  before)  that 
statistical  approaches  begin  to  make  sense.  The  situation  is 
analogous  to  the  transition  from  microscopic  to  macroscopic 
thermodynamics  where  at  some  scale  one  must  abandon  any  attempt 
to  look  at  individual  particles  and  start  to  look  at  averaged 
quantities . 
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Statistical  methods  will  be  taken  up  in  Section  IV.  The 
rest  of  this  section  is  devoted  to  a discussion  of  the  finite 
element  method  in  vibration  problems,  and  to  a new  finite  ele- 
ment that  has  been  applied  to  angular  vibration  problems. 


3.1  FINITE  ELEMENT  REVIEW 

The  finite  element  method  is  the  dominant  but  not  exclu- 
sive method  in  use  today  for  numerical  solutions  to  boundary 
value  problems.  Its  popularity  stems  from  its  extreme  flexi- 
bility with  regard  to  the  range  of  shapes  and  boundary  condi- 
tions that  may  be  handled.  Before  proceeding  to  a discussion 
of  the  Semi-Loof  shell  and  beam  elements,  we  review  very  briefly 
the  mathematical  foundations  of  the  finite  element  method. 

Some  understanding  of  these  foundations  is  necessary  in  order 
to  appreciate  the  development  of  the  Semi-Loof  elements.  It 
may  be  fair  to  say  that  some  users  of  finite  elements  need  a 
better  mathematical  understanding  of  the  method.  Without  this 
knowledge,  users  with  a superficial  view  of  finite  elements 
as  "building  blocks"  may  misapply  the  method. 

A finite  element  formulation  may  be  derived  beginning 
with  an  energy  functional.  For  a two  dimensional  (£,q)  prob- 
lem, for  example,  one  would  have 


G [ui(^,n)]dS 


(3.1) 


ir(u^)  = F tu^(£,r))J  d£dri  + 

J J 4 

where  the  u i are  independent  variables  (functions  of  £,n),  F 
represents  energy  in  the  interior,  and  G the  boundary  of  the 
region.  At  this  point  the  problem  could  be  one  of  thermodyna- 
mics, electrostatics,  elasticity,  or  any  other  field  where  an 
energy  principle  governs.  For  structures  problems,  Eq.  (3.1) 
most  commonly  is  the  potential  energy,  and  the  u^  are  dis- 
placements. 

In  the  traditional  calculus  of  variations  approach,  a 
formal  variation  is  carried  out  in  terms  of  the  variations  of 
each  independent  function  ui.  Setting  the  coefficients  of 
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each  6u^  to  zero  then  yields  the  Euler  equations,  which  are 
the  differential  equations  and  boundary  conditions  governing 
the  problem. 

6lT  = 0 = l fir  6ui  (3,2) 

i 1 


£,(  u.)  = 0 

<*-1  3 (3.3 

-^i(Uj)  = 0 

At  this  point  the  finite  element  approximation  functions  are 
introduced 


u • ( £ j H ) - £ N- . (£,n)  u ■ • , i - 1,2,...  (3.4) 

i j iJ  1J 

wherein  u. . are  undetermined  coefficients,  or  independent 
variables,  and  the  ^ are  shape  functions,  usually  polynomials 
in  £ and  n . For  a linear  displacement  formulation  of  a structures 
problem  it  is  necessary  that  these  functions  satisfy  displace- 
ment boundary  conditions  (prescribed  boundary  conditions) 
exactly  while  force  (or  "natural")  boundary  conditions  are 
usually  only  approximated.  We  also  note  that  the  use  of  dou- 
ble subscripts  is  entirely  arbitrary  at  this  point. 

Substitution  of  Eq.  (3.4)  into  Eq.  (3.3)  then  yields 
algebraic  equations  which  may  be  written 


k,£. 


Aijk*  uk£ 


+ B. 


iD 


= 0, 


i , j = 1,2,. . . (3.5) 


which  may  then  be  solved  numerically.  Equation  (3.5)  is  meant 
to  represent  a static,  free  vibration , transient  dynamic,  or 
frequency  response  problem,  with  time  variation  implicit  in 

the  Aijkt  and  Bij- 

An  alternative  approach  is  possible.  Instead  of  taking 
the  variation  first  and  then  introducing  approximation  func- 
tions, one  can  reverse  these  steps.  That  is,  introducing 
Eq.  (3.4)  into  Eq.  (3.1)  renders  it  a function  of  the  u^ , 
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after  the  integration  has  been  carried  out.  One  may  then  set 
the  partial  derivatives  of  it  with  respect  to  each  u..  to  zero 
to  obtain  the  same  algebraic  Eq.  (3.5).  This  alternative  is 
attractive  particularly  when  nonlinear  terms  are  present, 
making  it  possible  to  apply  minimization  techniques  directly 
to  the  potential  energy.  The  two  approaches  are  summarized 
in  Figure  1. 

The  foregoing  development  is  a description  of  the  more 
general  Rayleigh-Ritz  method,  and  as  yet  nothing  has  been  said 
about  the  essential  feature  of  the  finite  element  method.  We 
now  examine  the  nature  of  the  approximation  functions  N^(£;,n) 
and  the  independent  variables  (undetermined  coefficients)  that 
multiply  them.  Consider  for  illustration  a plate  bending 
problem.  The  plate  is  divided  into  finite  elements  by  mesh 
lines.  The  shape  functions  are  such  that  each  function  has  a 
value  only  at  one  of  the  node  points  of  the  mesh,  and  in  the  in- 
terior of  elements  surrounding  that  node  point  (see  Figure  2). 
The  node  point  yalue  is  the  independent  yariable  u..  associated 
with  that  shape  function.  It  is  possible  to  consider  the  shape 
functions  within  only  a single  element,  provided  continuity 
requirements  have  been  met.  That  is,  two  elements  with  a 
common  edge  must  both  predict  the  same  displacement  values  at 
any  point  along  that  edge,  given  values  for  the  corner-point 
degrees  of  freedom  at  either  end  of  that  edge.  This  being  the 
case,  it  is  possible  to  make  models  with  elements  of  any  size 
and  shape,  and  to  form  matrices  for  the  entire  system  by 
accumulating  matrices  generated  for  individual  elements. 

In  recent  years  the  "patch  test"  has  come  into  favor  as 
a means  of  evaluating  a proposed  finite  element.  It  is  based 
on  the  stipulation  that  any  element  must  represent  both  rigid- 
body  motion  and  constant-strain  deformation  in  order  to  assure 
that  a finer  mesh  yields  a better  solution.  This  is  like  say- 
ing that  a series  approximation  needs  to  have  at  least  the 
constant  and  first-order  terms  correct.  In  the  patch  test, 
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Figure  1 


Finite  Element  Mathematical  Derivation 
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these  conditions  are  tested  by  taking  a "patch"  of  elements 
and  imposing  rigid  body  or  constant  strain  motions  on  the 
points  on  the  boundary  of  the  patch.  The  elements  in  the 
interior  should  then  reproduce  that  state  exactly. 


23 


3.2  THE  SEMI-LOOF  ELEMENTS 

This  section  presents  some  of  the  background  of  the  Semi- 
Loof  elements  that  have  been  utilized  in  the  present  work. 

These  elements  were  developed  by  Prof.  Bruce  Irons  and  his  co- 
workers, and  are  best  documented  in  Reference  l 2 1.  The  de- 
velopers are  engineers  and  they  are  willing  to  venture  into 
realms  of  approximations  and  adaptations  where  mathematicians 
might  fear  to  tread,  given  the  less  than  rigorous  theoretical 
justifications.  If  past  history  is  repeated,  mathematicians 
will  develop  the  missing  theoretical  basis  for  these  and  other 
advanced  elements  after  engineers  have  been  applying  them  suc- 
cessfully for  some  time. 

First,  the  Semi-Loof  shell  elements  are  isoparametric 
elements,  meaning  that  the  functions  used  to  describe  the  un- 
deformed shape  are  the  same  as  those  used  to  describe  displace- 
ments (i.e.,  the  shape  functions).  This  is  a well  known  ap- 
proach to  shell  elements,  explained  in  texts  such  as  Chapter  8 
of  Reference  [ 3 ].  Also  commonplace  is  the  use  of  Gaussian 
quadrature  for  integration  of  element  stiffness  and  mass. 

This  is  a form  of  numerical  integration  where  the  locations 
and  weighting  factors  for  sampling  functions  are  chosen  such 
as  to  minimize  truncation  errors  when  the  integrands  are  poly- 
nomials. The  locations  are  known  as  Gauss  points.  For  two- 
point  integration  of  a function  on  a normalized  interval  (-1,1), 
for  example,  the  Gauss  points  are  located  at  ± 1//3  and  the 
weighting  factors  are  both  unity. 

The  Semi-Loof  elements  begin  to  deviate  from  orthodox 
elements  with  the  question  of  inter-element  compatibility,  or 
conformity  as  it  is  sometimes  called.  This  concept  was  intro- 
duced in  Section  3.1  and  it  asserts  that  displacements  (and 
slopes,  for  bending  elements)  must  be  continuous  across  ele- 
ment boundaries  as  a condition  of  admissibility  of  the  shape 
functions.  The  Semi-Loof  elements  are  basically  non-conforming 
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elements,  but  the  non-conformity  is  of  a special  kind:  such 
that  any  discontinuity  and  its  first  moment  integrate  to  zero 
between  elements.  That  is,  if  C is  the  normalized  arc  length 
along  an  element  interface  (-1  < C < 1),  and  6(C)  is  a dis- 
continuity, then 


1 

6(C)  dC  = 0 

■ -1 

and 

rl 

C6(C)  dC  = 0 

- -1 


(3.6) 


so  that  the  elements  can  pass  the  patch  test.  This  property 
is  made  possible  by  the  use  of  Loof  nodes  which  are  located 
at  the  Gauss  points  along  each  element  edge  (i.e.,  C = ± 1//3). 
This  idea  stems  from  an  early  development  by  H.  W.  Loof  £ 4 ] 
who  proposed  very  high  order  elements  providing  exact  solutions 
in  element  interiors,  with  shape  functions  collocated  at  a 
number  of  points  along  element  interfaces. 

A Semi-Loof  isoparametric  quadrilateral  begins  with  17 
nodes  and  43  degrees  of  freedom.  The  node  points  include  four 
corner  nodes,  four  midside  nodes,  and  a center  node  (see 


Figure  3 ).  The  degrees  of  freedom  are: 

3 translations  at  each  midside  and 

corner  mode  3x8  = 24 

Rotations  about  two  axes  at  each  Loof 

node  and  the  corner  node  2x(8+l)  = 18 

The  "bubble  function"  w = (l-C^Ml-n^) 

required  by  the  patch  test  = l 

TOTAL  = 43 


The  43  degrees  are  then  reduced  to  32  by  imposition  of  the 
following  constraints: 

First,  rotations  about  the  normals  at  all  eight  Loof  nodes 
are  set  to  zero.  These  rotations  introduce  transverse  shear 
strains,  which  are  small  for  thin  shell  theory  (8  constraints). 
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Figure  3 Semi-Loof  Quadrilateral  Element  Degrees  of  Freedom 


Second,  two  constraints  are  used  to  reduce  out  the  center 
point  rotations.  These  are: 


Xg  • y d(area) 


Yg  • y d(area)  = 0 


(3.7) 


where  Xg  and  Yg  are  unit  vectors  at  the  center  point  in  the 
K = constant  and  q = constant  directions,  and  y is  the  vector 
resultant  of  the  two  transverse  shear  strains.  Irons  found 
through  experience  that  constraining  this  average  shear  strain 
produced  better  results  than  simply  eliminating  the  two  center 
point  shear  strains. 

Finally,  the  constraint 
/ 

V • d(area)  =0  (3.8) 

is  transformed  into  a boundary  integral  by  Green's  theorem 

(thickness)  y^z  d(boundary)  = 0 (3.9) 

and  used  to  reduce  out  the  bubble  function  leaving  43-8-2-1=32 
degrees  of  freedom.  These  are  shown  in  Figure  3. 

Ideally,  the  stiffness  matrix  for  the  quadrilateral  would 
have  a rank  of  26  (32  nodal  variables  minus  6 rigid  body  mo- 
tions). But  each  integrating  point  can  contribute,  at  most, 
six  (the  rank  of  the  modulus  matrix)  for  a total  of  24  with 
2x2  Gaussian  quadrature.  Thus,  under  these  circumstances,  the 
element  contains  two  spurious  mechanisms;  that  is,  deformation 
states  for  which  the  predicted  strain  energy  is  zero.  Experi- 
ence has  shown  that  for  many  cases  this  is  not  a problem,  par- 
ticularly when  stresses  are  of  primary  interest.  Nevertheless, 
this  situation  is  unacceptable  in  a production  environment. 

Two  remedies  are  presently  available,  neither  of  which  is  ideal. 
The  first  is  to  introduce,  somewhat  arbitrarily,  a fifth  inte- 
gration point  at  the  center,  with  a small  weighting  factor,  fi, 
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by 


-1 


<j)(£,n)dSdn  = n<|>(0,0)  + (i-fl/4) 


-1 


4 

I 

1 


<j>(±—  ±— ) 
/3  /3 


(3.10) 


The  second  alternative  is  to  resort  to  3 x 3 integration,  for 
which  the  integration  formula  (taken  from  Table  8.1,  Refer- 
ence E ^ 3 ) is 


f1  r1 

<t>(£,n)  d£dn 

- -l  J -l 


3 

1 


i,:=i 


H^Hj<j>(a^)(j)(aj  ) 


(3.11) 


where  the  Gauss  points  are 
= .7745966692 

a 2 = 0.0 

a3  = "al 


(3.12) 


and  the  weighting  factors  are 

H1  = 5/9 

H2  = 8/9  (3.13) 

H3  = 5/9 

In  the  NASTRAN  implementation  of  Semi-Loof  to  be  discussed 
subsequently,  the  choice  of  integration  rules  has  been  left 
to  the  user  (2x2,  2x2+1,  or  3x3). 

Triangular  elements  have  not  yet  been  introduced  yet. 
These  elements  are  a fairly  straightforward  extension  of  the 
quadrilateral  element.  There  are  24  degrees  of  freedom,  in- 
cluding three  displacements  at  each  of  three  corner  nodes 
and  each  of  three  midside  nodes,  plus  six  Loof  rotations 
(Figure  4).  There  is  no  problem  with  spurious  mechanisms, 
since  three  integration  points  provide  a matrix  rank  of 
3 x 6 = 18,  plus  six  rigid  body  modes  = 24,  the  size  of  the 
matrix . 

The  third  Semi-Loof  element  is  the  curved  beam,  which  is 
meant  to  join  with  the  shell  elements  along  their  edges.  This 
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Figure  4 Semi-Loof  Triangular  Element  Degrees  of  Freedom 


element  is  documented  in  Reference  [ 5 ].  Like  the  shell  ele- 
ment, constraints  are  used  to  reduce  out  unwanted  degrees  of 
freedom.  The  element  has  two  end  nodes,  a center  node,  and 
two  Loof  nodes,  like  the  edge  of  a shell  element.  This  is 
shown  in  Figure  5. 


There  are  initially  three  displacements  and  three  rotations 
at  each  end  point,  three  displacements  at  the  center  point, 
and  three  rotations  at  each  Loof  node.  Gauss  point  transverse 
shear  strains  are  zeroed  out,  eliminating  two  unwanted  rota- 
tion degrees  of  freedom  at  each  Loof  node.  The  final  element 
has  quadratic  variation  of  both  bending  and  torsion  strains. 

Prof.  Irons  has  made  available  his  shape  function  sub- 
routines. When  supplied  with  element  geometry  and  isopara- 
metric coordinates  £,n,  they  return  values  of  all  the  shape 
functions  and  their  derivatives  so  that  an  engineer/programmer 
may  change  the  integration  method,  or  form  different  integrals 
without  disturbing  the  basic  shape  function  computations. 

These  subroutines  are  the  heart  of  the  PRELOOF  code,  developed 
as  part  of  this  effort  and  described  in  Appendix  A of  this  report. 
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3.3  COMPARISON  AND  EVALUATION  OF  SEMI-LOOF  ELEMENTS 

A number  of  evaluations  and  comparisons  of  Semi-Loof  ele- 
ments have  been  published  in  the  literature.  At  the  time, 
Semi-Loof  was  in  a "laboratory  development"  stage,  and  had 
not  been  applied  much  in  production  situations.  Many  of  the 
elements  that  were  compared  to  it  were  not  in  production  sta- 
tus either.  Additional  evaluations  were  carried  out  as  part 
of  this  effort  with  the  specific  aim  of  comparing  Semi-Loof 
with  the  widely  used  plate  elements  in  NASTRAN,  since  the 
final  goal  was  to  make  Semi-Loof  available  to  NASTRAN  users. 

We  summarize  very  briefly  some  of  the  results  reported 
in  the  literature.  Irons  [2]  reports  on  a cantilever  cylin- 
der (Figure  6)  with  end  moments.  A very  coarse  mesh  (60° 
elements)  gave  stresses  accurate  to  within  1%.  This  is  a 
rather  spectacular  result.  Uniformly  loaded  square  and  circu- 
lar plates  also  give  excellent  results.  On  the  other  hand,  a 
point-loaded  square  plate  is  much  less  satisfying,  though 
still  acceptable  (Figure  7).  This  may  be  a consequence  of 
the  fact  that  Semi-Loof  corners  can  hinge.  In  practical  situa- 
tions, point  loads  are  usually  carried  by  beams,  however. 

Martins  and  Owen  [6]  compare  Semi-Loof' s performance 
with  several  other  elements  with  respect  to  vibration  of  a 
square  plate  and  of  a cantilever  cylindrical  panel.  Compari- 
sons were  presented  as  plots  of  relative  error  versus  number 
of  degrees  of  freedom  employed,  and  each  problem  showed  a sub- 
stantial improvement  for  Semi-Loof  over  most  other  elements. 

The  same  authors  [7]  report  favorable  results  for  both  elasto- 
plastic  and  geometrically  nonlinear  problems.  In  this  case, 
comparison  with  other  elements  is  more  difficult. 

As  an  initial  comparison  of  Semi-Loof  with  the  standard 
QUAD 2 (COSMIC  NASTRAN)  and  QUAD 4 (MSC/NASTRAN)  plate  elements, 
a simple  plate  bending  problem  was  run.  The  results  (Figure  8) 
were  encouraging  in  that  Semi-Loof  outperformed  both  NASTRAN 
elements.  A surprising  result  was  that  the  QUAD 4 did  not  con- 
verge any  faster  than  QUAD 2 , although  it  did  better  for  the 
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Figure  6 Cantilever  Cylinder 
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Figure  7 Point-loaded  Plate  Evaluation 
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Figure  8 Plate  Element  Convergence  Study 


coarse  mesh.  Incidentally,  the  degree-of -freedom  counts  for 
these  runs  excluded  in-plane  displacements. 

Next,  Problem  3-1-1  of  the  NASTRAN  Demonstration  Problem 
Manual  E 8 ] was  run.  This  is  a vibration  problem  for  a flat 
plate.  The  following  frequencies  were  obtained: 


Mode 

Theoretical 

QUAD1 

10x20  Mesh 
590  DOF 

QUAD1 

20x40  Mesh 
-1200  DOF 

Semi-Loof 
4x7  Mesh 
196  DOF 

1 

0.9069 

0.9056 

0.9066 

0.9069 

2 

2.2672 

2.2634 

2.2632 

3 

4.5345 

4.5329 

4 .5302 

Although  this  exercise  was  mainly  intended  to  check  out  the 
mass  matrix  coding  and  not  necessarily  to  compare  the  two 
elements,  there  is  some  evidence  of  increased  efficiency  for 
Semi-Loof . 

The  third  academic  test  problem  that  was  selected  was  a 
cantilever  cylinder  with  varying  thickness.  Although  no 
analytical  solution  is  known,  it  was  possible  to  observe  the 
rate  of  convergence  (of  the  first  fundamental  frequency)  as  the 
models  were  refined  (Semi-Loof  versus  QUAD4 ) . The  following 
table  summarizes  these  runs: 


Semi-Loof 

QUAD  4 

First  Frequency 

770.6 

767.8 

Degrees  of  Freedom 
(before  omit) 

504 

900 

Degrees  of  Freedom 
(after  omit) 

504 

457 

Number  of  Modes  Computed 

2 

1 

Total  Run  "Cost" 

Including  Matrix  Generation 

$8.70 

$21.30 
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As  a final  test  problem,  a curved,  stiffened  aluminum 
panel  was  fabricated  (see  Figure  9).  The  panel  was  tested 
in  the  laboratory  and  was  analyzed  with  both  QUAD 4 and  Semi- 
Loof  elements.  The  first  few  frequencies  were: 


Mode 

Description 

Experimental 

QUAD4 
710  DOF 

Semi-Loof 
500  DOF 

1 

First  twisting 

66.2 

68.1 

67.1 

2 

First  bending 

194.4 

194.7 

186.9 

3 

Second  bending 

228.1 

239.0 

232.5 

4 

Second  twisting 

241.9 

247.3 

241.8 

5 

Third  bending 

275.0 

284.9 

281.3 

Note  that  the  Semi-Loof  model  reproduces  the  twisting 
modes  somewhat  better  than  the  bending  modes.  This  is  thought 
to  be  a reflection  of  an  early  deficiency  in  the  Semi-Loof 
beam  element:  the  lack  of  an  offset  specification  to  represent 
eccentric  stiffeners.  There  was  some  difficulty  in  choosing 
accurate  equivalent  non-eccentric  beam  properties  to  model  the 
iffener.  This  deficiency  was  remedied  later  in  the  program 
and  the  appropriate  code  was  added  to  PRELOOF. 

During  Phase  I it  was  thought  that  rotary  inertia,  which 
is  usually  neglected  in  finite  element  mass  matrices,  might 
have  more  importance  in  angular  vibration  problems  than  is 
generally  the  case.  Rotary  inertia  is  the  moment  induced  in  a 
shell  due  to  a unit  angular  acceleration  about  a line  tangent 
to  the  shell’s  middle  surface.  If  the  two  orthogonal  rotations 
for  a shell  are  9w/9x  and  9w/9y,  then,  integrating  over  the 
shell  surface,  we  would  add  the  term 
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Figure  9 Curved  Panel  Configuration 


to  the  mass  matrix,  where  the  thickness,  t , may  vary  with 
£ and  n*  In  a test  case  where  rotary  inertia  was  added,  the 
natural  frequencies  changed  in  only  the  fourth  decimal  place. 
Rotation  degrees-of-freedom  typically  changed  in  the  sixth  or 
seventh  decimal  place.  For  a thin  shell  it  is  clear  that 
rotary  inertia  is  entirely  insignificant.  For  rotary  inertia 
to  be  significant,  either  thicknesses  or  rotations  would  have 
to  be  large.  If  thicknesses  were  large,  then  the  assumptions 
about  zero  transverse  shear  strain  would  be  wrong.  If  rota- 
tions were  large,  then  the  linear  strain-displacement  relations 
would  no  longer  hold.  Although  it  costs  virtually  nothing  to 
add  rotary  inertia  to  Semi-Loof,  it  would  provide  no  real  pay- 
off and  would  be  inconsistent  with  the  assumptions  underlying 
the  stiffness  formulation. 

3.4  IMPLEMENTATION  INTO  NASTRAN 

The  subroutines  supplied  by  Irons  do  the  basic  work  of 
defining  shape  functions  for  Semi-Loof  elements  and  applying 
constraints  to  reduce  out  unwanted  degrees  of  freedom.  A 
primary  goal  of  this  effort  was  to  make  Semi-Loof  elements 
available  to  NASTRAN  users.  Considerable  effort  was  involved 
in  writing  code  around  the  shape  function  routines  to  make 
this  possible. 

One  of  the  first  decisions  faced  was  whether  to  modify 
NASTRAN  at  the  source  code  level.  This  would  have  produced 
the  "cleanest"  result  in  that  no  interfacing  would  have  been 
necessary.  The  alternative  was  to  generate  matrices  in  a 
pre-processing  program  and  read  them  into  NASTRAN.  The  former 
alternative  was  rejected  for  the  following  reasons: 

(1)  There  are  two  major  versions  of  NASTRAN,  MSC/NASTRAN 
and  COSMIC  NASTRAN.  MSC/NASTRAN,  used  by  most 
industrial  and  some  government  users,  is  not  avail- 
able at  the  source  code  level,  and  these  users 
would  presumably  be  shut  out  by  a development 
limited  to  COSMIC  NASTRAN,  for  which  source  code 
is  available. 
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(2)  There  would  be  no  guarantee  that  future  modifications 
to  NASTRAN  would  be  compatible  with  modifications 
made  for  Semi-Loof. 

(3)  Link-editing  NASTRAN  is  a time-consuming  process, 
most  likely  an  overnight  computer  run.  This  would 
hamper  debugging  and  checkout  considerably. 

The  NASTRAN  DMAP  language  allows  the  user  access  to  any 
matrix  or  table  at  any  stage  of  execution.  However,  it  is 
difficult  to  access  element  matrices  and  assembly  tables.  Con- 
sequently, it  was  decided  that  not  only  would  element  matrices 
be  generated  by  PRELOOF,  the  preprocessing  routine,  but  would 
be  assembled  into  master  matrices  as  well.  This  still  allows 
for  connection  of  Semi-Loof  elements  to  other  NASTRAN  elements 
since  the  matrices  read  from  PRELOOF  are  added  to  the  matrices 
generated  by  NASTRAN  for  any  additional  elements  that  may  be 
present.  In  addition  to  PRELOOF,  a post-processing  routine, 
POSTLOOF,  was  written  for  the  purposes  of  recovering  stresses 
and/or  angular  deformations.  The  latter  are  not  independent 
variables  at  node  points;  hence,  the  option  to  recover  them  as 
secondary  variables. 

The  file  handling  required  to  transfer  information  from 
PRELOOF  to  NASTRAN  and  from  NASTRAN  to  POSTLOOF  has  been  made 
painless  by  means  of  packaged  control  card  procedures  and  DMAP 
Alters.  Experience  has  shown  that  there  is  practically  no 
penalty  for  doing  preprocessing  and  post-processing  outside  of 
NASTRAN  as  a result. 

PRELOOF  and  POSTLOOF  input  are  described  in  Appendix  A. 
Some  programming  notes  for  PRELOOF  are  given  there,  also. 
Briefly,  PRELOOF  does  the  following: 

(1)  Reads  and  checks  input  data  in  NASTRAN  Bulk  Data 
format. 

(2)  Sorts  grid  point  numbers  and  establishes  a sequencing 
table  for  degrees  of  freedom. 
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(3)  Generates  PLOTEL  cards  to  enable  plotting  of  shell 
elements,  if  desired. 

(4)  Generates  element  stiffness  matrices  and,  if  requested, 
element  mass  matrices  and/or  load  vectors.  This  in- 
volves formation  of  modulus  matrices,  generation  of 
shape  functions  at  integration  points,  and  accumula- 
tion of  stiffness  terms. 

(5)  Assembles  element  matrices  into  global  matrices, 
which  are  written  out  to  a file  six  columns  at  a 
time,  in  a form  acceptable  to  NASTRAN. 

3 . 5 SUMMARY 

There  has  been  considerable  research  activity  in  finite 
element  analysis,  but  the  results  of  these  efforts  have  been 
disappointingly  slow  in  reaching  the  production  user.  The 
demands  made  upon  analysts  by  angular  vibration  problems  in 
aircraft  require  that  the  best  tools  be  available.  Millions  of 
dollars  have  been  invested  in  finite  element  software,  and  the 
vast  majority  of  these  funds  have  been  devoted  to  matters  other 
than  the  mathematical  formulation  of  elements;  that  is,  such 
things  as  input  checking,  sorting,  sequencing,  matrix  decom- 
position techniques,  spill  logic,  internal  file  handling,  and 
output  formatting.  It  would  be  foolish  to  attempt  to  duplicate 
this  massive  investment  just  for  the  sake  of  introducing  a new 
element;  hence,  the  motivation  for  using  NASTRAN  with  its  full 
complement  of  solution  strategies,  output  options,  etc.  It  is 
believed  that  real  progress  has  been  made  in  delivering  a new 
tool  to  the  analyst  for  angular  vibration  and  other  structural 
problems.  However,  this  new  tool,  in  turn,  intensifies  the 
requirement  that  the  analyst  "know  his  elements."  Semi-Loof 
by  nature  is  more  sophisticated  than  simple  plate  elements, 
especially  with  regard  to  integration  procedures. 

Part  of  a fighter  fuselage  was  obtained  and  tested  in  the 
laboratory.  The  fuselage  was  modeled  and  analyzed  with  Semi-Loof 
elements,  and  tested  in  the  laboratory.  Section  VII  is  a dis- 
cussion and  comparison  of  these  results. 
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SECTION  IV 

HIGH  FREQUENCY  METHODS 


4.1  INTRODUCTION 

A basic  assumption  from  the  beginning  of  Anamet's  work  on 
angular  vibration  has  been  that  deterministic  methods  of  struc- 
tural modeling  would  not,  by  themselves,  be  sufficient. 
Experience  with  airborne  optical  systems  has  shown  that  high 
frequency,  low  amplitude  motion  of  optical  components  can 
seriously  degrade  system  performance.  This  high  frequency 
motion  represents  the  aggregate  contribution  of  numerous  high 
order  modes  of  vibration  which  are  too  sensitive  to  small 
details  of  construction  to  be  reliably  modeled  by  deterministic 
methods.  While  motions  induced  by  high  frequency  disturbances 
may  be  small  compared  to  low  frequency  contributions,  the  active 
servomechanisms  used  to  control  the  optical  beam  have  their  own 


frequency  limitations.  They  cannot  effectively  suppress  and 
may  actually  amplify  the  effect  of  disturbances  at  frequencies 
beyond  a few  hundred  Hz. 

Typical  cumulative  power  data  for  in-flight  vibration  at 
a particular  fuselage  station  is  shown  in  Figures  10  and  11 
for  a translational  and  rotational  displacement,  respectively. 

It  may  be  observed  that  the  normal- 


(Data  courtesy  of  AFFDL.) 

f f 

ized  cumulative  power  ( 


o. 

S(f)df/o  ) of  the  rotation  converges 


J o 

to  unity  somewhat  more  slowly  than  does  the  corresponding  func- 
tion of  the  translation.  In  both  cases  only  a few  percent  of 
total  signal  power  is  beyond  50  Hz.  Nevertheless,  the  ability 
to  accurately  predict  this  portion  of  a response  PSD  is  quite 
important . 

Historically,  prediction  methods  for  high  frequency  vibra- 
tion environments  of  airborne  equipment  have  been  based  on 
empirical  correlations  of  actual  flight  test  data.  While  this 
approach  has  proven  to  be  useful  in  many  cases,  it  was  consid- 
ered outside  the  scope  of  the  current  contract.  Efforts  at 
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Figure  10  Cumulative  Power  of  Typical  Translational 
Variable  for  In-flight  Vibration. 
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Figure  11  Cumulative  Power  of  Typical  Rotational 
Variable  for  In-flight  Vibration. 
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Anamet  have,  therefore,  concentrated  on  more  general  analytical 
methods  derivable  from  first  principles.  The  use  of  experimen- 
tal data  and,  in  particular,  structural  models  assembled  from 
test  data,  has  by  no  means  been  ruled  out,  however. 

The  distinction  between  so-called  high  frequency  and  low 
frequency  prediction  methods  which  has  been  adopted  in  the 
current  studies  is  a functional  one  and  does  not  necessarily 
involve  specific  frequency  ranges.  High  frequency  prediction 
methods  are  defined  simply  as  those  which  do  not  necessarily 
involve  knowledge  of  individual  normal  modes  of  a structure. 

Low  frequency  methods  are  those  which  are  based  upon  such  know- 
ledge whether  it  be  obtained  through  analysis  or  test. 

4.1.1  Statistical  Energy  Analysis 

The  definition  of  high  frequency  methods  stated  above  leads 
inevitably  to  approaches  which  treat  a structure  in  terms  of 
some  averaged,  or  statistical,  description.  In  Phase  I it  was 
decided  that  the  method  of  Statistical  Energy  Analysis  offered 
the  most  promise  for  predicting  high  frequency  angular  vibration. 
A significant  portion  of  the  total  effort  in  Phase  II,  as  well 
as  Phase  I,  was  expended  in  gaining  an  understanding  of  the 
theoretical  and  practical  basis  of  the  method.  This  in  itself 
has  proven  to  be  a formidable  task,  mainly  because  the  theory 
is  made  up  of  contributions  from  several  related  but  diverse 
fields:  classical  vibrations,  random  processes,  wave  mechanics, 

mechanical  impedance  methods,  and  acoustics.  Reference E 1 3 was 
found  to  be  a most  useful  document  in  this  regard  due  to  its 
thoroughness  and  extensive  bibliography. 

The  single  most  appealing  feature  of  the  SEA  approach  is 
its  apparent  facility  for  making  use  of  whatever  level  of  detail 
is  available  in  the  description  of  a structure.  This  was  con- 
sidered essential  since  a mode-by-mode  description  will,  by 
assumption,  not  be  known.  The  method  also  appears  well  suited 
to  situations  where  a small,  indirectly  excited  structure,  such 
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as  an  optical  element,  is  attached  to  a much  larger*  structure, 
such  as  an  airframe,  by  a small  number  of  common  degrees  of  free- 
dom. 

Section  4.2  of  this  chapter  is  devoted  to  a brief  summary 
of  the  fundamentals  of  SEA.  It  is  not  intended  to  describe  the 
entire  basis  of  the  method,  but  rather  to  point  out  the  essential 
features  which  make  it  attractive  for  the  present  purpose.  Atten- 
tion will  be  focused  on  a case  similar  to  that  described  in  the 
preceding  paragraph.  A wave  transmission  method  for  obtaining 
coupling  loss  factors  is  reviewed  in  Section  4.3.1  and  an  alter- 
nate set  of  assumptions  is  presented  in  Section  4.3.2  which 
allows  a similar  formula  for  coupling  loss  factor  to  be  obtained 
by  considering  a modal  coordinate  description.  It  is  demonstrated 
how  a convenient  measurement  procedure  can  be  used  to  obtain  the 
internal  loss  factor  for  a component.  In  Section  4.6  an  experi- 
ment is  described  where  the  wave  transmission  method  is  used  to 
predict  transmitted  power  and  equilibrium  energy  ratio  between 
two  coupled  plates.  Finally,  an  expression  is  derived  and  tested 
experimentally  for  predicting  the  r.m.s.  angular  displacement  in 
frequency  bands  at  an  interior  point  of  a uniform  plate  under 
broadband  random  excitation,  given  the  total  vibrational  energy. 

The  purpose  of  the  experiment  was  to  gain  some  first-hand 
experience  with  SEA  and  to  estimate  its  potential  usefulness  as 
a day-to-day  engineering  tool.  In  this  regard,  the  use  of  mini- 
computer-based FFT  methods  is  described  as  they  pertain  to  the 
experiment . 

4.2  FUNDAMENTALS  OF  SEA 

Statistical  Energy  Analysis  of  vibration  is  set  apart  from 
classical  deterministic  methods  by  its  use  of  time-averaged  com- 
ponent energies  and  power  flows  between  components  as  primary 
variables.  If  a component  is  a distinct  mechanical  substructure, 
its  energy  under  stationary  random  vibration  is  always  express- 
ible as  some  form  of  inner  product.  For  example,  if  component 
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A is  a substructure  described  by  an  Nxl  vector  x of  displace- 
ments and  a lumped  mass  matrix  K , the  time  averaged  kinetic 
energy  of  A is 
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(4  .1) 
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expectation  with  respect  to  time 


The  time-averaging  and  summing  operations  (4.1)  represent 

. • *2 

the  transformation  between  the  individual  x^  or  <x^>  variables 

of  classical  deterministic  analysis  and  the  energy  variables 

T of  an  SEA  model.  In  general  the  sum  as  determined  from  an 
A 

SEA  model  cannot  be  separated  into  its  individual  terms  and 
hence,  the  identity  of  individual  spatial  points  is  lost.  For 
situations  where  individual  modes  are  unavailable,  this  mixing, 
or  averaging  process  is  basic  to  the  method  in  that  it  allows 
equilibrium  equations  for  component  energies  to  be  obtained 
under  varying  levels  of  assumptions  regarding  the  nature  of  the 
substructure.  The  wave  transmission  method,  for  example,  makes 
rather  gross  simplifying  assumptions  by  assuming  two  uniform  struc- 
tures of  infinite  size.  This  is  appropriate  for  very  high  frequency 
analysis  since  complications,  such  as  shell  curvature  or  lumped 
mass  concentrations,  tend  to  either  have  less  effect  than  at 
low  frequencies,  or  to  affect  response  in  only  a local  area 
with  little  change  in  total  energy. 

A second  inherent  characteristic  of  an  SEA  model  is  the  de- 
composition of  energy  and  power  flow  quantities  by  frequency. 

This  is  analogous  to  the  decomposition  of  the  mean  square  value 
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of  a zero-mean  stationary  random  quantity  into  its  power  spectral 
density. 
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It  is  possible  to  write  equilibrium  equations  for  component 

energies  and  inter-component  power  flow  for  linear  structures 

under  stationary  excitation,  in  terms  of  frequency  bands.  The 

variables  are  energy  or  power  between  specified  frequency  limits. 

It  should  be  noted  that  the  terms  power  spectral  density  and 

energy  spectral  density  now  mean  exactly  what  they  say.  This 

is  in  contrast  to  the  more  common  usage  of  stochastic  processes 

2 

where  Sx(f)  is  called  the  PSD  of  x even  though  x does  not  have 
the  dimensions  of  power. 

Equilibrium  equations  are  written  in  terms  of  simple  power 
balance  relations  for  each  component.  Suppose  two  components 
A and  B are  connected  by  a light  spring  and  component  A is 
directly  excited  (Figure  12). 
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Figure  12  Two  Bodies  with  Stiffness  Coupling  and  Direct 
Excitation  of  One  Body 
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where 


<7IA,IN>t 

<7TA,DIS>t 

<7rAB,TRAN>t 


input  power  to  body  A from  all  ideal  sources 

(in  this  case  i.  (t)) 

o 

power  dissipated  internally  by  body  A 


= power  transmitted  from  body  A to  body  B 


with  similar  definitions  for  <71^  T.T>  , T.TP>.  , and 

B,IN  t B,DIS  t 

<TIBA,TRAN>t  * 

In  equations  (4.3)  and  (4.4)  the  < > operator  implies 
time-averaged  power  in  some  frequency  band  . A separate  set 
of  equations  may  be  written  for  each  band  of  interest. 

The  power  quantities  on  the  right  hand  side  of  (4.3)  and 
(4.4)  are  next  expressed  in  terms  of  component  energies  by 
making  use  of  two  other  basic  SEA  principles. 

As  usual  in  linear  vibrations,  the  energy  dissipated  per 
cycle  at  a given  frequency  is  assumed  to  be  proportional  to 
the  amount  present  at  that  frequency.  The  proportionality 
constant  for  body  A is  called  q^(  f)  , the  internal  loss  factor 
at  frequency  f.  As  usual,  the  equation  is  written  in  terms  of 
energy  and  power  within  specific  frequency  bands. 


<7tA,DIS>t 

<7TB,DIS>t 


2 


2 'fcnA(fcXEA>t 


(4.5) 


where 


<E.>t,  <Eg>t  = time-averaged  total  energies  of  A and  B 

(kinetic  + potential)  within  a frequency 
band 

f = center  frequency  of  band 
c 
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The  relation  between  transmitted  power  and  component  energies 
represents  the  unique  element  of  SEA  analysis.  It  may  be 
thought  of  as  defining  the  so-called  coupling  loss  factors 

nAB(  fc*  and  riBA(fc) 

<1TAB,TRANS>t  = 2irfc[nAB  <EA>t  " nBA  <EB>t]  (4*6 

For  multi-mode  structures  nAB  represents  the  coupling  of  each 
mode  of  A to  all  modes  of  B and  thus  is  a function  of  ND(f  ), 
the  number  of  modes  of  B occurring  within  the  band  about  f 

c 

which  was  used  to  define  the  < > operator.  All  modes  of  a 
component  have  also  been  assumed  to  have  equal  energies  which 
implies  nAB  is  directly  proportional  to  Ng.  Many  methods  have 
been  used  to  estimate  coupling  loss  factors.  One  of  the 
simplest  methods  (which  therefore  makes  relatively  gross 
assumptions  about  the  structure  and  excitations)  is  explained 
in  Section  4.3. 
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4.2.1  SEA  Parameters 

For  the  simplest  case  where  body  B is  driven  only  by  its 
connection  to  body  A,  it  is  often  assumed  that  <Eg>t  is  small 
compared  to  <EA>t  and  that  hBA/hAB  is  not  large  compared  to 
unity.  In  this  case  (4.6)  can  be  simplified  to  yield 


<7rAB,TRANS>t  = 2 7TfcnAB<EA>t 


(4.7) 


If  B is  not  directly  excited  <ttb  IN>t  = 0 and  (4.4)  becomes, 
after  combining  with  (4.5)  and  rearranging 


<EB>t  = <EA>t  Cn 


'AB 


+ n 

B 'BA 


] 


(4.8) 


It  can  be  shown  [ 9 ] that  equipartition  of  energy  between  modes 
leads  to  a reciprocity  relation  between  coupling  loss  factors 


NA  nAB 


NB  nBA 


(4.9) 


Combining  (4.8)  and  (4.9) 


<EB>t 


<Ea:>  [- 

At  n 


'AB 

B + <W  "AB 


] 


(4.10) 


Finally,  if  the  previous  assumption  of  rigA  <EB>t  <<  hAB  <EA>t 
is  applied  to  (4.6)  and  the  result  combined  with  (4.4)  and  (4.5) 


<Vt 


<"A,IN>t 

“‘"A  + nAB; 


(4.11) 


Equations  (4.7),  (4.10)  and  (4.11)  can  give  some  physical 
insight  into  the  SEA  parameters.  For  a given  level  of  power 
input  to  A from  the  external  source,  the  equilibrium  energy 
level  of  A is  set  by  the  sum  of  nA  and  nAB  (4.11).  With  <EA> 
set,  the  power  transmitted  to  B is  proportional  to  nAg  (4.7). 
Also  for  a given  level  <EA>t»  the  equilibrium  energy  level  of 
the  indirectly  excited  body  <EB>t  is  set  by  a combination  of 
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q , n A d > and  the  mode  counts  (4.10).  In  the  limit  as  the 
B AB 

internal  damping  of  B goes  to  zero,  its  energy  level  does  not 

go  to  infinity  as  it  would  for  a single  body  driven  by  an  ideal 

source.  Rather,  the  energy  per  mode  <Eg>t/Ng  of  the  receptor 

body  B becomes  equal  to  <EA>t/NA,  the  energy  per  mode  of  the 

transmitter  body.  This  last  conclusion  is  a fundamental  SEA 

result  and  is  particularly  significant  in  view  of  the  difficulty 

of  predicting  internal  loss  factors  in  lightly  damped  structures. 

It  implies  that  an  error  in  nB  will  produce  a smaller  percentage 

error  in  <E>.  (which  is  usually  the  quantity  of  most  interest) 

B T 

and  even  an  assumed  value  of  zero  internal  loss  in  B will  still 
produce  an  answer. 
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4.3  ESTIMATION  OF  COUPLING  LOSS  FACTOR  BY  THE  WAVE  TRANSMISSION 
METHOD 

4.3.1  Derivation  in  Terms  of  Waves 

One  of  the  simplest  methods  for  estimating  the  coupling  loss 
factors  for  point-connected  structures  is  the  so-called  wave 
transmission  approach.  It  treats  the  motion  of  the  coupled  bodies 
in  terms  of  traveling  waves  and  represents  the  coupling  loss 
factor  in  terms  of  mechanical  impedance  or  admittance  functions 
at  the  coupling  points.  It  implies  rather  extreme  simplifying 
assumptions  when  applied  to  real  structures  since  simple  travel- 
ing wave  solutions  exist  only  for  structures  with  a high  degree 
of  uniformity.  Examples  would  be  infinite  plates  and  beams  of 
uniform  section.  Nevertheless,  the  method  was  pursued  for 
several  reasons : 

a.  The  simplicity  of  the  model  made  the  method  a good  first 
step  in  gaining  familiarity  with  SEA. 

b.  It  appeared  to  be  adaptable  to  one  of  the  objectives 
of  the  SEA  work;  investigating  the  use  of  interactive 
minicomputer  processing  of  test  data  to  predict  coupling 
loss  factors. 

c.  For  sufficiently  high  frequency,  the  simplifying  assump- 
tion of  uniform  structure  may  be  quite  reasonable  for 
structures  such  as  curved  stiffened  shells  which  are 
distinctly  non-uniform  at  lower  frequency. 

The  derivation  of  coupling  loss  factor  in  terms  of  coupling 
impedance  using  a wave  model  is  given  in  Reference  £10]  and  will 
not  be  repeated  here  except  to  slightly  rearrange  the  final  re- 
sult. Equation  11  of  Reference  ElOj  is  (refer  to  Figure  12): 


2llfcrlAB: 


m- 


W 


Re(^— ) 
ZB 


(4.12) 


where 

rn^  = mass  of  body  A 

= impedance  of  body  A at  the  degree  of  freedom  to  which 
one  end  of  the  coupling  spring  in  attached 
Zg'  = impedance  looking  into  the  series  combination  of 
body  B and  the  coupling  spring 
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We  note  that  a typographical  error  occurred  in  Eq.  11  of 
Reference  [10]  and  so  it  differs  slightly  from  (4.12)  [n]. 

If  Zg  is  the  impedance  of  body  B at  the  point  where  it  attaches 
to  the  light  spring,  then 


(4.13) 


where 


Z 

c 


Z (f) 
c 


k 

c 

i2irf 


kc  = stiffness  of  coupling  spring 


Combining  (4.12)  with  (4.13)  and  using  the  definition  of 
mobility  H(f)  as  the  reciprocal  of  impedance  Z(f): 


^c^AB  = 


Re(Hg) 

ha+hb+hc| 


(4.14) 


Equation  4.14  is  nearly  the  formula  for  coupling  loss  factor 
upon  which  the  experiment  described  in  section  4.4  is  based. 
However  for  application  to  real  (i.e.  finite)  structures,  an 
important  modification  is  necessary.  The  explanation  of  this 
will  follow  more  naturally  after  an  alternate  derivation  has 
been  given. 
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4.3.2  Derivation  in  Terms  of  Normal  Modes 

The  formula  for  coupling  loss  factor,  Eq . (4.14),  may  be 

derived  without  explicit  reference  to  traveling  waves.  The 
procedure  is  similar  in  principal  to  Reference  [10]  except  that 
the  notions  of  normal  modes  and  power  spectral  density  functions 
are  used  rather  than  waves  of  complex  exponential  amplitude. 

It  is  felt  that  the  former  terminology  would  allow  a clearer 
explanation  of  the  experiment  which  follows. 

Consider  two  structures  A and  B of  Figure  12  connected 
by  a light  spring  of  stiffness  kc-  Body  A only  is  directly 
excited  by  load  £,Q(t). 

Replacing  the  coupling  spring  by  its  force  *c(t) 


*c(t) 

< * 


JL  (t) 
o 


where 


Z (t),  JL(t)  = forces  on  bodies  A and  B at  the  connect  points 
a b 

v (t),  vh(t ) = velocities  of  the  connect  points 

d ^ 

x (t),  xK(t)  = displacements  at  the  connect  points 

3.  D 

l (.£)  = external  force  on  body  A 
o 

£(-(-)  = coupling  force  in  spring 


Then  if  lc  > 0 implies  tension  in  the  spring 

la  = Zc 
Zb  = ~lc 


(4.15) 

(4.16) 
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The  mechanical  impedance  of  body  B at  the  attachment  point  b 
is  defined  as 


Z.  (f) 
b 


4 Lb(f) 
= v^TfT 


where 


f = frequency 


(4.17) 


Lb(f)  = Fourier  transform  of  ^(t) 

= / Hlb(t)] 

Vb(f)  = Fourier  transform  of  vb<t) 

= / tvb(t)] 

It  should  be  noted  that  the  definition  of  Zb(o>)  implies  that 
vfc(t)  is  the  velocity  of  B at  b when  ^b(t)  is  the  only  force 
acting  on  B.  To  emphasize  this  fact,  we  will  write 

to  denote  the  velocity  of  b under  this  condition. 

The  superscript  in  parenthesis  will  also  carry  over  to 
Fourier  transforms. 

Transforming  (4.16)  and  combining  with  (4.17') 


zbcn 


-Vf) 

Vb(lc) (f) 


(4.18) 


Similarly 


Z (f) 

a 


Lc(f> 

v uc5(f) 

a 


The  coupling  force  is 


(4.19) 


&c ( t ) = kcCxb(t)  - xa(t)] 
Transforming  (4.20) 


(4.20) 


Lc(f)  = kc[Xb(f)  - Xa(f)] 


(4.21) 
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Using  the  derivative  relation  for  Fourier  transforms 


V(f)  = i2nfX(f ) 


(i 


gives 


i2  irf 


(V^  - 


V 


0 


If  both  structures  are  assumed  to  behave  linearly  we  may 
use  superposition 


v = [v  due  to  i with  £ - 0] 

a a o c 

+ [v  due  to  £ with  £ = 0] 

3 CO 


Putting  (4.24)  in  terms  of  the  notation  previously  defined 


U ) x (l  ) 

y — V o + V c 
3.  <3.  3 


Transforming  (4.25) 


V (f)  = V (V(f)  + V (V(f) 

3.  3 3 


From  ( 4.2-0  and  (4.19)  » dropping  the  argument 


V = V ^o  ^ 
a a Z 

3 


Similarly  T 

VK  = V <V  - £ 

b b Zb 

( 5.  ) 

But  Vb  o = 0 since  body  B won't  move  if  i-c  is  removed. 
L 

Vb  = _ZT 


.22) 

.23) 


1.24) 

4.25) 

4.26) 

4.27) 

4.28) 

Then 

4.29) 
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Combining  (4.23),  (4.27)  and  (4.29) 


Lc  = 


-V  (V 

a 


_A  + _i  + _i 
z z.  z 

a b c 


(4.30) 


where 


Zc(f)  - impedance  of  spring  element  with  one  end  fixed 
k 


c 

l27rf 


rU  ) 


Next,  we  find  an  expression  for  in  terms  of  o . 

<7rAo>+  is  the  time  averaged  power  being  transmitted  from  body  A 

nD  X 

to  body  B through  the  coupling  spring.  If  irAg('t)  is  ihe  instan- 
taneous power  being  received  at  b then 


"AB(t)  = vb(t)  lb(t> 

= -vb(t)  *cCt> 


(4.31) 

(4.32) 


If  the  vibration  is  assumed  to  be  stationary  random  and 
ergodic,  we  can  time  average  (4.32)  to  get 


lim  -1 
^AB  t " T-hx.  t 


00 


v,  H dt  = - <vK£  > . 
be  bet 


(4.33) 


Introducing  the  definition  of  cross  correlation 


Rv  1 (T)  8 <vb(t)  Vt+T)>t 

b c 


From  (4.33)  and  (4.34) 

<1TAB>t  = " S*  (0) 
b c 


(4.34) 


(4.35) 
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The  correlation  R(t)  is  related  to  power  spectral  density 
S(f)  by  Wiener's  theorem 


R (t)  = * 1[S  (f)] 

(4.36) 

xy  xy 

= f S (f)ei2lTfTdf 

(4.37) 

1 

8 

X 

= f <X*(f)Y(f)>ei27rfTdf 

(4.38) 

where  the  last  equation  makes  use  of  the  stationarity  assumption 
Then  letting  t = 0 in  (4.34)  and  (4; 38)  and  combining  with 
(4.33)  gives 


<ir 


AB>t 


<L*Vk>  df 
c b 


(4.39) 


where  * denotes  complex  conjugate  and  < > applied  to  products 

of  Fourier  transforms  denotes  ensemble  averaging. 

Now  vw(t)  and  £■  (t)  are  both  real  so  V,(f)  and  L (f)  both 

have  Hermetian  symmetry;  that  is,  Vb(-f)  = Vfc*(f)  and  Lc(-f) 

= L *(f).  The  integral  in  (4.39)  is  then 
c 


i: 


* /°°  * 

<L^Vb>  df  = 2Re [ j <L'Vb>df] 


(4.40) 


Then 


<TT 


AB>t 


A 

<L  "VK>df 
c b 
o 


(4.41) 


( 4 . 41)suggests  that  we  define  nAfi(f),  the  spectral  density  of 
transmitted  power,  as 


nAB(f)  = -2Re  <Lc^Vb> 


The  convention  implied  in  (4.42),  namely  that  Fourier  transforms 
are  double-sided  and  spectral  density  functions  are  single-sided, 
will  be  followed  throughout  this  chapter. 
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From  (4.41)  and  (4.42) 

<TT  > = j nAB(f)df 

AB  t J o 

Since  ^(t ) is  the  only  force  acting  on 
from  ( 4.42) 

* (1  ) 

nAB  = -2Re  <Lc  V C > 


(4.43) 

body  B we  can  write, 


(4.44) 


Combining  (4.18)  and  (4.44) 


nAB^  = 2<lLc(f)l  > Re^Zb('f ) * 


(4.45) 


( £ ) 

Next  define  o (f)  as  the  spectral  density  of  the  time- 

averaged  total  energy  (kinetic  and  potential)  of  body  A with 
the  coupling  removed.  That  is,  if  T^^o^(f)  and  UA^o^(f)are 

respectively  the  spectral  densities  of  kinetic  and  potential 
energies  of  the  uncoupled  body  A 


TA(V(f)  + UAao}(f)  = EAUo)(f) 


(4.46) 


It  may  be  shown  [12]  that  for  the  uncoupled  body  A driven  only  by 
£Q(t)  the  time  averaged  kinetic  and  potential  energies  in  any 
frequency  band  are  equal. 

TA(V  = (4.47) 

Then  from  (4.46)  and  (4.47 

2TAUo)(f)  = E^O^f)  (4.48) 
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( £ ^ 2 

Next,  consider  the  quantity  <|V  o'j 

a 


>.  If  the  modal 


density  of  body  A is  very  high  in  the  frequency  band  of  interest, 
and  the  mass  distribution  is  fairly  uniform,  then  the  vibration 
field  will  be  homogeneous.  That  is,  the  temporal  mean  square 
velocity  in  a frequency  band  will  not  vary  much  over  the  struc- 
ture. Then,  with  the  coupling  spring  detached,  point  a on 
body  A is  just  a typical  point  whose  velocity  spectrum  is  a 
good  estimate  of  the  mass-averaged  velocity  spectrum  of  the 
whole  structure.  Thus,  if  m.  is  the  mass  of  body  A 


TA(V(f>  = mA<|VA(V(f)|2> 


(4.49) 


It  should  be  noted  that  the  above  assumptions  are  just  those 
which  are  needed  to  admit  a simple  traveling  wave  description 
of  the  motion  of  body  A.  Thus,  it  is  not  surprising  that  the 
end  result  is  similar  to  equation  11  of  Reference  [10],  which  was 
obtained  using  a wave  approach. 

From  Eqs.  (4.48)  and  (4.49) 


2mA  <1  VAUo)(f)|  2> 


(4.50) 


The  fundamental  theorem  of  SEA  is 


Af 


Af 


Af 


evaluated  for  the  frequency  band  Af  centered  at  fc-  It  must  be 
noted  that  equation  ( 4. 51)  holds  only  in  the  mean.  Each  of  the 
three  terms  represents  an  estimate  of  the  mean  value  of  a random 
variable  and  thus  the  terms  are  themselves  random  variables.  In 
practical  terms  this  implies  that  the  product  of  modal  density 
and  Af  must  be  large  enough  to  allow  many  modes  to  contribute 
if  (4. 51)  is  to  hold  for  a particular  trial  |~13]. 
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When  the  coupling  is  light  and  only  one  body  is 
directly  excited,  it  is  commonly  assumed  that  the  coupled 
and  uncoupled  energies  of  the  directly  excited  body  (body  A) 
are  essentially  equal.  Also,  the  energy  of  the  indirectly 
excited  body  is  assumed  to  be  small  compared  to  that  of  the 
directly  excited.  Under  these  assumptions  (4/51)  becomes 

L nAB(f,df  = 2l,fc  "AB  f , EAU°>(f)df  <4-52) 

■*  Af 


Combining  (4.45)  and  (4.30) 
2<  | V.  (J'o)  | 2> 


nAB(f)  = 


111 

7T  + ZT  + 7T 

a b c 


Re(=J-  ) 


(4.53) 


Substituting  (4.53)  and  (4.50)  into  (4.52)  and  introducing  the 
velocity  admittance  H = Z-1  (also  called  the  mobility)  in 
place  of  impedance  gives 

, 2<|Va(V|2  Re(Hb)df 

Jif  |Ha  *-Hb  ♦ Hc|2 

= ‘•”fc  raA  Iab  L <|Va<to)|2>df  (4.54) 

J Af 

The  mobility  functions  are  defined  at  every  frequency  f 
both  inside  and  outside  the  integration  band  Af.  For  struc- 
tures with  the  assumed  high  modal  density,  H^(f)  and  Hg(f)  can 
be  expected  to  vary  rapidly  within  the  band  and  thus  the  factor 
Re(Hg) / | H^+Hg+H^ | cannot  be  taken  outside  the  integral  on  the 
left  side  of  (4.54).  However,  if  one  returns  to  the  basic 
assumptions  of  SEA  the  next  step  is  clear.  The  energy  equilib- 
rium equations  of  the  form  (4.3)-(4.4)  are  written  for  frequency 
bands  of  finite  width  on  the  assumption  that  internal  and 
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coupling  loss  coefficients  can  be  treated  as  constant  over 
each  of  these  frequency  bands.  Thus,  consistency  requires 
that  the  quantity  Re(Hg) / | HA+HB+HC | be  replaced  by  a constant 
value  which  is,  in  some  sense,  best  over  the  frequency  band  Af. 
Intuitively,  one  suspects  that  the  frequency  average  over  Af 
of  the  whole  quantity  would  be  appropriate.  However,  a slightly 
different  approach  is  suggested  by  Manning  [11]  and  is  the  one 
actually  taken.  The  individual  frequency  responses  ( f ) , 

Hg( f ) , and  Hc(f)  are  replaced  by  their  frequency  averages  over 
the  band  Af  and  centered  at  f.  It  can  be  shown  L14]  that  for 
many  types  of  structures,  the  mobility  function  of  a finite 
structure,  when  averaged  over  a band  which  contains  many  modes, 
will  equal  the  mobility  of  an  infinite  extension  of  the  struc- 
ture. Thus,  replacing  H(f)  by  H(fc)  where 


H(f  ) 
c 


1_ 

Af 


V 


Af 

2 


f 


H(f)df 

Af 
c~  T 


(4.55) 


amounts  to  replacing  the  actual  structure  by  an  equivalent 
one  which  is  a best  uniform  approximation  in  a particular  fre- 
quency range.  Making  the  above  substitutions  for  HA(f),  Hg(f) 
and  Hc(f)  allows  the  mobilities  to  be  taken  outside  the  integral 
on  the  left.  The  remaining  integrals  then  cancel  and  the  result 
is 


2"fc  nAB 


Re[HB(fc)] 


mA  |HA(fc)*HB(fc>*Hc<fc>|2 


(4.56) 


Note  that  this  result  is  identical  to  Eq.  (4.14)  except 
that  the  admittance  functions  H^,  Hg  and  Hc  have  been  replaced 
by  their  smoothed  (i.e.,  averaged  with  respect  to  frequency) 
counterparts.  The  final  test  of  the  approximations  described 
above  must,  of  course,  be  by  experiment.  One  such  experiment 
is  described  in  Section  4.5. 
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4.4  ESTIMATION  OF  ANGULAR  RESPONSE 

In  Section  4 . 3 of  this  report  a method  is  described  for  cal- 
culating coupling  loss  factor  in  a particular  situation.  From 
the  discussion  of  Section  4.2  it  may  be  seen  that  this  factor, 
along  with  internal  (damping)  loss  factors,  can  be  used  to  set 
up  an  SEA  model  for  a simple  two-component  system  coupled  at  a 
single  degree  of  freedom.  The  solution  of  the  SEA  equilibrium 
equations  will  then  be  component  energies  and  the  inter-component 
power  flow  in  frequency  bands.  However,  these  are  not  usually 
the  quantities  of  direct  interest.  In  the  present  case  we  would 
like  to  estimate  mean  square  angular  response  and,  if  possible, 
its  spectral  distribution  at  specific  points  on  a structure.  In 
Section  4.5,  the  SEA  modeling  described  in  Sections  4.2  and  4.3 
is  carried  out  for  a simple  system  consisting  of  two  uniform 
plates  coupled  at  one  point.  In  this  section  we  derive  an  ex- 
pression for  angular  response  in  terms  of  component  energy  for 
this  demonstration  case.  Its  validity  was  tested  by  experiment 
and  results  are  reported  in  Section  4.5.4. 

4.4.1  Relation  Between  Angular  Response  and  Total  Energy  For  A 
Uniform  Plate 

Suppose  a uniform  rectangular  plate  is  excited  by  broad- 
band random  forces.  Assume  that  the  smoothed  spectral  density 
of  the  total  vibrational  energy  is  fairly  flat  well  into  the 
frequency  range  where  modal  density  (averaged  over  the  smooth- 
ing bandwidth)  is  constant.  Let  the  dynamic  response  of  the 
plate  be  represented  as 

w(x,y,t)  = ][  ni(t ) \J>^(x,y)  (4.57) 

i 
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where 


x,y  = coordinates  parallel  to  plate  edges 
t = time 

w = normal  displacement  of  plate  midplane 

"th 

i);.  (x,y)  = shape  function  of  i normal  mode  of  plate 
1 "til 

ni(t)  = amplitude  of  i normal  mode. 

It  is  assumed  that  if  the  support  conditions  allow  rigid 
body  modes,  the  forcing  is  such  that  their  response  is  negli- 
gible compared  to  flexural  modes  in  the  high  frequency  range  of 
interest.  The  desired  response  quantity  is  the  amplitude  of 
the  total  angle  between  the  instantaneous  normal  to  the  plate 
at  a point  (x,y)  and  the  normal  to  the  undisturbed  plate  at 
that  point. 

|6(x,y,t)|=|Vw|  (4.58) 

where 

V = gradient  operator 

-►  3 . *►  3 

ex  3x  y 3y 


e 


x * 


unit  vectors  in  x and  y directions 


combining  Eqs . (4.57)  and  (4.58),  squaring,  and  taking  the  ex- 
pectation with  respect  to  time. 


<6  (x,y,t)>t  = l l <hinj>t 


dip.  dip. 


3x  3x 


1 + n ^iVt 


dip.  dip. 


1 J 


3y  3y 


(4.59) 


For  light  damping,  each  of  the  mean  square  modal  responses  will 
have  spectral  densities  which  have  large  values  in  the  neighbor- 
hood of  their  respective  natural  frequencies  but  are  much  smaller 
elsewhere.  This  implies 

<f|?>.  * w?  <n?>+  (4.60) 

it  l it 

and 


<n  .n  . :>  = 0 for  o).  i w . 

i D t l : 


(4.61) 
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The  time-averaged  total  energy  of  vibration  in  a lightly 
damped  structure  can  be  represented  in  modal  coordinates  as 


where 


(4.62) 


<E>t  = time-averaged  total  energy,  kinetic  plus 
potential,  of  the  plate 

-i_  y. 

<E^>t  = time-averaged  energy  of  i mode 


m^  = modal  mass  of  i^*1  mode. 

As  usual  in  SEA  work,  the  < > operator  applied  to  a positive 
definite  quantity  implies  the  division  of  that  quantity  by 
frequency  bands;  that  is,  if  Gu(f)  is  a single-sided  spectral 
density  function,  then 


<u2>. 


f + 
c [ 


f - 
c 


Af 

nr 


Gu(f)  df 


Af 

~1 


(4.63) 


Equation  ( 4 . 63 )defines  the  common  SEA  notation  even  though  the 

center  frequency  f and  bandwidth  Af  are  not  expressly  noted 

in  the  left-hand  side.  We  assume  that  N modes  are  resonant 

within  Af  and  that  only  their  responses  need  be  considered  in 
2 

forming  <6 

Combining  Equations  (4.59)  and  (4.61)  and  simplifying 

N 

<02(x,y,t)>.  = l <T)2.>  |ViH2  (4.64) 

T i = l 1 

Combining  Equations  (4.60),  (4.62)  and  (4.64) 
ry  N <E  « > . n 

<e2(x,y,t)>  = l — ^ |V*.r  (4.65) 

i=l  m^o)£ 
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Next  we  invoke  the  basic  SEA  assumption  of  equipartition  of 
energy  between  the  N modes  of  a single  component  in  a band. 


<E> 


t 


(4.66) 


N 


From  Equations  (4.65)  and  (4.66),  writing  out  | Vi|>  | 


2 


<02(x,y,t)>t  = 


(4.67) 


The  frequency  range  of  interest  is  high  compared  to  the 
fundamental  mode  of  the  plate.  Therefore,  away  from  the  bound- 
aries the  mode  shapes  will  be  approximately  sinusoidal  regard- 
less of  boundary  conditions. 


(4.68) 


^i(x,y)  = sin  (kxix)  sin  (kyiy) 


where  k^  and  k ^ are  allowable  wavenumbers  in  the  x and  y 
directions.  Their  exact  values  will  depend  on  boundary  condi- 
tions, but  in  the  high  frequency  regime,  only  their  average 
density  in  wavenumber  space  is  important.  This  density  is  in- 
dependent of  boundary  conditions.  In  addition,  by  assuming  a 
traveling  wave  solution,  we  may  write  the  dispersion  relation 
for  a plate  independent  of  the  type  of  supports. 


(4.69) 


where 


= natural  radian  frequency  of  ith  mode 
< = radius  of  gyration  of  plate  cross  section 


= h/2  /T 


h = plate  thickness 
c . = extensional  wave  speed 

X 
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E = plate  elastic  modulus 
p = plate  mass  density 


v = Poisson’s  ratio 

Combining  Equations  (4.67)  and  (4.68) 

N <E>  ? ? 9 

<6Mx,y,t)>  = l £kxi  cos  (k  .x)sin  (k  .y) 

i=l  m^w^N  y 


+ k2.  sin2 (k  . x)cos2 (k  . y ) ] 
yi  xi  yi 


(4.70) 


In  the  wave  transmission  method  for  finding  power  transfer 
coefficients,  it  is  assumed  that  many  modes  fall  within  the 
frequency  band  Af  and  thus  N is  large  compared  to  1.  We,  there 
fore,  assume  that  the  "typical"  point  (x'y')  falls  on  the  dif- 
ferent mode  shapes  at  points  such  that  the  quantities  k . x*  and 

A -L 

k .y’  are  uniformly  distributed  over  the  range  from  0 to  2n. 

yi  2 

Under  this  assumption  we  may  replace  the  | | quantity  on  the 

right  hand  side  of  Equation  (4.70)  by  its  spatial  average  taken 

over  many  cycles  in  both  x and  y directions.  We  may  also  drop 

the  x,y  arguments  on  the  left  hand  side,  requiring  only  that  x’ 

y'  be  well  away  from  the  plate  boundaries.  In  that  case 
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<0  > 
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= l 


<E> 


(k2.  + 
xi 


k2  . ) 
yi 


i=l  nuoo^N 


(4.71) 


For  a uniform  mass  density,  the  modal  mass  corresponding  to 
mode  shapes  given  by  Equation  (4.68)  is 


m- 

l 


M 

4 


(4.72) 


where  M is  the  plate  physical  mass. 
(4.71)  and  (4.72) 

<E>t»4-v2  N 1 
<6>t  = NMkc^  i^1  2tt77 


Combining  Equations  (4.69) 


(4.73) 
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Once  again,  the  assumption  of  high  modal  density  can  be  used 
to  simplify  the  result.  If  the  natural  frequencies  f ^ are 
assumed  to  be  uniformly  distributed  over  the  frequency  band  Af 
we  have 


N 


l 

i = l 


1 

'f. 


N 

Af 


(4.74) 


Note  that  N/Af  is  the  average  modal  density  and  Af/N  is  the 
average  mode  spacing.  Combining  Eqs . (4.73)  and  (4.74)  and 
carrying  out  the  integration. 


<e2> 


f + y~ 

/ 2 ln*- 5T-* 

<E>t/l-v2  fc  - f 


2irM<c , 


Af 


(4.75) 


or 


<e2> 


<E>t /l-v2 
•27rMKCA.m. 


(4.76) 


where  f.  is  the  log  mean  frequency  of  the  band.  For  the 
x . m . 

bandwidths  and  center  frequencies  used  in  the  coupled  plate  ex- 
periment, it  is  essentially  equal  to  the  arithmetic  mean  fc- 
The  final  result  is  then 


<9 
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> 

t 


2TiMicc^fc 


(4.77) 


2 

The  r.m.s.  value  of  0 is  obtained  by  summing  <0  > over  all 
bands  and  taking  the  square  root. 


Cl-v2)1'4 


r.m.s. 


( 2nM<cJt ) 


T7T 


d 


<Eb\l/2 

b _rr> 


(4.78) 


where 
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6 = | Vo)  | , angle  between  the  instantaneous  normal  to 

plate  at  a point  x,  y,  and  the  normal  to  the  undis- 

turbed plate  at  that  point 
w = out-of-plane  displacement 
v = Poisson's  ratio 
M = total  plate  mass 

k = h/2/T,  radius  of  gyration  of  plate  cross  section 
h = plate  thickness 

CH  = SE7~p , extensional  wave  speed 

E = elastic  modulus 
p = mass  density 

<E^>  = temporal  mean  energy  in  a frequency  band  b 
f^  = center  frequency  of  band  b 


In  a sense,  the  derivation  leading  to  Eq.  (4.78)  is  similar  to 
the  method  of  Lee  and  Whaley  [15]  for  estimating  angular  vibra- 
tion from  translational  vibration.  Like  Lee  and  Whaley's  method, 
it  is  based  on  a particular  structural  form  (i.e.,  a beam  or 
plate)  and  uses  the  idea  of  summing  or  averaging  translational 
response  over  that  form.  However,  it  differs  in  that  mass- 
weighted  velocity  PSD's  are  added  to  obtain  the  spectral  den- 
sity of  the  vibrational  energy.  Also,  this  method  does  not 
require  knowledge  of  boundary  conditions  or  individual  normal 
modes.  Rather,  it  is  assumed  that  many  modes  contribute  and 
that  low  order  modes  are  not  dominant . 


4.5  ESTIMATION  OF  INTERNAL  LOSS  FACTOR 

In  assembling  an  SEA  model  of  a real  structure,  the  most 
formidable  task  is  usually  the  calculation  of  the  coupling  loss 
factors.  However,  the  accuracy  of  the  model  in  predicting 
equilibrium  component  energies  is  also  quite  dependent  on  the 
accuracy  of  internal  loss  factors  which  are  input  to  the  model. 
The  damping  mechanisms  in  built  up  structures  are  usually  com- 
plex. Estimates  of  internal  loss  factor  are  almost  always 
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empirical  in  nature.  Measurements  must  be  made  on  the  structure 
in  question  if  it  is  available  or  inferred  from  previous  mea- 
surements on  similar  structures.  In  either  case,  a convenient 
method  of  obtaining  damping  data  suitable  for  SEA  modeling  is 
highly  desirable.  Recent  developments  in  mini-computer-based 
dynamic  testing  have  provided  a method  which  seems  promising. 

It  is  described  in  the  next  section. 

4.5.1  Measurement  and  Use  of  Modal  Damping  Ratios 

While  it  was  assumed  at  the  outset  that  complete  descrip- 
tions of  individual  normal  modes  of  interacting  structures 
would  not,  in  general,  be  known,  it  is  also  true  that  this  is 
a practical  rather  than  a theoretical  restriction.  Modal 
densities  of  airframe  structures  may  be  high,  but  they  are 
finite.  It  is  quite  easy  to  see  the  contributions  of  individual 
modes  in  the  mobility  function  measured  at  a coupling  degree  of 
freedom  if  the  measured  function  is  sufficiently  well  resolved 
in  frequency.  It  is  also  possible  to  estimate  the  equivalent 
viscous  modal  damping  ratios  of  individual  modes  by  trial-and- 
error  fitting  of  a curve  of  specific  mathematical  form  to  the 
measured  function  [16,  17].  Again,  the  measurement  may  require 
a high  degree  of  frequency  resolution  but  this  can  be  accom- 
modated by  commercially  available  hardware/ software  packages 
which  implement  the  so-called  "zoom"  discrete  Fourier  transform 
[18].  In  theory,  each  modal  damping  ratio  is  characteristic  of 
the  entire  structure  and  is  independent  of  the  excitation  used 
to  measure  it.  In  practice,  one  will  obtain  reliable  modal 
damping  estimates  only  for  modes  with  significant  amplitude  at 
the  coupling  point.  However,  these  are  exactly  the  modes  which 
will  determine  the  properties  of  the  coupled  system,  so  obtain- 
ing their  damping  ratios  should  be  adequate. 

For  the  two  component  system  which  was  tested,  the  desired 
damping  quantity  is 
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At  first  glance  it  might  appear  that  the  internal  loss 

/ • \ 

factor  nR  could  be  obtained  from  the  modal  damping  ratios 
simply  by  averaging  2£''1  over  all  modes  resonant  in  the  band 
of  interest.  However,  this  method  yields  poor  agreement  with 
direct  experimental  measurement  of  Tig  via  Eq.  (4.79)  [19].  A 
better  method,  suggested  by  Manning  [11],  has  been  found  to  give 
excellent  agreement  and  is  explained  below. 

Since  essentially  all  the  vibrational  energy  of  a particu- 
lar mode  is  in  a narrow  band  about  its  natural  frequency,  we  may 

/ £ \ 

write,  for  the  frequency  band  which  contains  uj 
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If  the  total  energy  of  the  component  is  <Eg>t , then 
Nt 


<EB>t 


i 

i 


(4.81) 


where  the  summation  is  over  all  Ng  modes  which  are  resonant 
within  the  band.  From  Eqs.  (4.80)  and  (4.81) 
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The  input  power  to  a specific  mode  will  depend  on  its  proper- 
ties such  as  shape  and  modal  mass,  which  are  presumably  not 
available.  We,  therefore,  approximate  <7r^g^>t  for  all  i by  an 
averaged  value  <ttab  >t/Ng  where  <^AB>t  is  the  total  input  power. 
Making  this  substitution  in  Eq.  (4.82)  as  well  as  replacing 
n(l)  by  2£(l)  and  w(l)  by  2Trf(l) 
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Comparing  Eqs.  (4.79)  and  (4.83) 
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(4.83) 


(4.84) 


The  left-hand  side  of  Eq.  (4.83)  is  the  quantity  desired  for 
SEA  modeling.  The  right-hand  side  is  data  available  from  the 
complex  curve  fitting  routine. 

It  should  be  noted  that  a fitting  algorithm  of  the  type 
described  in  [16 ] will  return  more  complex  poles  than  the  struc- 
ture actually  has  modes.  This  is  necessary  in  order  to  obtain 
a good  fit  in  the  presence  of  the  inevitable  noise  contamination 
of  the  measurement.  However,  it  is  usually  a simple  matter  to 
pick  out  the  correct  complex  poles  by  examination  of  the  peaks 
in  the  frequency  response  and  the  complex  residues  associated 
with  each  indicated  pole.  A test  of  Eq.  (4.83)  is  described  in 
a later  section  where  <7TAg>^/<EB>t  is  measured  directly  and  com- 
pared with  an  estimate  made  by  curve  fitting  of  a single  admit- 
tance function. 
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4.6  SEA  WAVE  TRANSMISSION  EXPERIMENT 
4.6.1  Obj  ective 

During  Phases  II  and  III  of  this  contract  an  experiment 
was  carried  out  to  test  the  theoretical  developments  (described 
in  Sections  4.3  and  4.4).  The  specific  objectives  of  the  exer- 
cise were  quite  numerous.  As  a whole,  it  was  intended  to  be  a 
first  step  towards  the  development  of  SEA  modeling  techniques, 
based  on  a combination  of  theory  and  experiment,  which  could  be 
used  in  the  development  of  airborne  optical  systems.  More 
specific  objectives  included: 

(1)  Compare  SEA  predictions  with  measurements  for  trans- 
mitted power  and  energy  of  an  indirectly  excited 
body  over  various  frequency  bands.  It  was  later 
decided  to  make  the  comparisons  on  the  basis  of 

<1TAB>t/^<^A>t  an<^  <^'B>t^<^A>t  re<^uce  the  time  and 
cost  of  the  experiment.  In  this  latter  format  no  pre- 
diction for  <E^>t  itself  is  needed  and  some  ambiguity 

is  removed  from  the  results. 

(2)  Compare  predictions  of  angular  response  made  from 

Eq.  (4.78)  and  measured  energy  with  directly  measured 
values . 

(3)  Acquire  some  hands-on  experience  with  applying  an  SEA 
model  to  a real  structure,  albeit  a very  simple  one. 

(4)  Test  the  limits  of  the  assumptions  built  into  the 
wave  transmission  formula  Eq.  (4.56).  In  particular, 
the  test  was  run  with  rather  heavy  coupling  (stiff 
coupling  spring)  so  that  <EB>t/<EA>t  was  about  0.2 

over  most  frequency  bands.  In  developing  the  SEA 
model  <Eg>^  <<:  <ea>-(;  had  been  assumed. 

(5)  Investigate  the  usefulness  of  interactive  mini- 
computer processing  of  test  data  for  SEA  modeling. 
Since  SEA  models  are  always  constructed  individually 
for  different  frequency  bands,  it  was  felt  that  FFT 
methods  could  be  put  to  good  use  both  in  developing 
the  model  and  in  processing  of  test  data  for  compari- 
son with  model  predictions. 

(6)  Develop  preliminary  software.  A number  of  sub- 
routines were  written  for  tasks  which  have  a high 
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probability  of  occurring  in  any  future  investigation 
of  more  sophisticated  SEA  methods. 

(7)  Evaluate  numerical  procedures  for  damping  measurement. 
The  definition  of  internal  loss  factor  nB  as  utilized 

in  the  two-component  SEA  model  of  Figure  12  is 


\ - <TTAB>t 
nB  c;  2irf  <En> 


B t 


(4.79  ) 


Measurement  of  nD  directly  from  this  definition  is 

D 

time-consuming  even  for  a simple  structure.  It  may 
be  impractical  for  anything  resembling  an  airframe 
since  <ED>  must  be  assembled  as  a mass-weighted  sum 

D L 

of  smoothed  velocity  PSD's  from  many  response  points. 
A more  practical  method  involving  only  measurement 
of  coupling  point  mobilities  was  described  in  Section 
4.5- 

A word  of  caution  is  needed  on  two  points  regarding  the 
experiment.  While  the  software  which  was  produced  is  supplied 
as  an  appendix  to  this  report,  it  cannot  be  considered  a fin- 
ished product.  Its  purpose  so  far  has  been  investigation  of  a 
method  of  analysis.  A great  deal  more  work  can  be  anticipated 
prior  to  producing  software  suitable  for  SEA  modeling  of  any- 
thing resembling  an  actual  aircraft  and  optical  system.  The 
uniform  plates  chosen  as  test  structures  are  not  represented 
as  being  dynamically  similar  to  the  airframe-optical  systems 
which  motivate  the  overall  effort.  They  are  of  interest  simply 
because  they  are  typical  "high  frequency"  structures;  that  is, 
many  modes  contribute  to  response  and  properties  of  each  indi- 
vidual mode  are  impractical  to  obtain,  either  by  analysis  or 
test . 

Secondly,  one  should  be  aware  of  what  constitutes  a 
"correct"  SEA  prediction.  For  complex  multi-modal  structures, 
any  SEA  model  is  by  necessity  built  up  from  a coarse  and  incom- 
plete description  of  the  actual.  SEA  theory  is  then  used  to 
estimate  average  or  typical  component  energies  and  infer  from 
them  the  mean  square  response  (translation  or  rotation)  at  an 
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average  or  typical  point.  How6ver5  as  Lyon  Ll]  points  out 
repeatedly,  the  analyst  is  not  interested  in  averages.  He 
desires  to  predict  response  for  one  specific  realization;  namely 
response  at  a transducer  mount  point  on  the  prototype  sitting  in 
the  lab.  Thus,  the  variance  of  a particular  trial  about  the 
mean  must  be  considered.  The  derivation  of  confidence  bands 
for  estimates  has  not  been  made  for  the  coupled-plate  experiment. 
Rather,  for  this  initial  investigation,  the  test  structure  was 
simply  chosen  to  have  higher  modal  density  and  be  much  more 
uniform  than  a typical  airfram?. . Both  properties  tend  to  reduce 
response  variance.  It  was  simply  assumed  that  such  variance 
as  remained  was  held  small  enough  to  allow  evaluation  of  the 
practical  potential  of  SEA. 

4.6.2  Experimental  Hardware 

The  experimental  set-up  is  shown  in  Figures  13  and  14. 

Two  rectangular  aluminum  plates  of  slightly  different  sizes  are 
suspended  in  parallel  vertical  planes  by  hanging  them  by  long, 
compliant  cords.  Pendulum  frequencies  are  low  enough  that  in 
the  frequency  range  of  interest  the  plates  behave  as  if  they 
were  in  a free-free  configuration.  Plate  dimensions  are 
65.12"  x 48.12"  x 0.090"  and  79.12"  x 48.12"  x 0.090".  The 
coupling  link  was  constructed  from  3/8"  diameter  aluminum  rod, 

5"  in  length,  with  a miniature  preloaded  universal  joint  at  one 
end  to  reduce  the  moment  transmitted  into  the  indirectly  excited 
plate  (Figure  14).  The  connection  to  both  plates  is  slightly 
off-center  to  avoid  discriminating  against  either  symmetric  or 
antisymmetric  bending  modes.  The  connection  to  the  indirectly 
excited  plate  is  made  by  means  of  a short  piece  of  10-32 
threaded  rod  which  passes  through  a drilled  hole  in  the  plate 
and  clamps  it  between  an  accelerometer  on  one  side  and  a load 
cell  on  the  other.  The  load  cell  then  connects  to  one  end  of 
the  universal  joint.  It  was  originally  intended  to  use  a light 
spring  as  the  coupling  element,  but  some  difficulty  was  encoun- 
tered in  fabricating  a spring  which  would  behave  as  a pure 
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Figure  13 


Couples  Plates  Used  for  SEA  Wave  Transmission 
Experiment 
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Figure  14 


Close-Up  of  Connecting  Link  Instrumented  to 
Measure  Instantaneous  Force  and  Acceleration 
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compliance  over  the  desired  100-1000  Hz.  band.  An  attempt  was 
made  to  use  a ring-shaped  spring  of  163  lbf/in.  stiffness  which 
would  theoretically  have  given  light  coupling  (i.e.,  Hc  >>  Hg) 
above  350  Hz.  The  attempt  failed  due  to  resonances  of  the 
spring  itself  well  below  1000  Hz.  The  exercise  was,  nonetheless, 
instructive  and  is  described  in  Section  4. 6. 4. 4. 

Body  A (the  larger  plate)  was  directly  excited  by  a small 
electrodynamic  shaker  coupled  through  a universal  joint.  The 
drive  signal  was  white  Gaussian  noise  with  band-limiting  to 
150-1000  Hz.  Total  power  input  to  plate  A was  about  1 milli- 
watt and  force  level  was  about  0.3  lbf  (rms). 

The  stiffness  of  the  solid  link  was  measured  dynamically 
as  6163  lbf/in.  While  this  implies  fairly  heavy  coupling 
throughout  the  band,  it  was  decided  that  it  should  be  used, 
nonetheless.  Since  real  structures  are  likely  to  be  coupled 
simply  by  rigid  or  near-rigid  connection  of  one  or  more  degrees- 
of-freedom,  it  was  felt  that  a deliberate  violation  of  the 
H >>  Hn  assumption  might  be  instructive.  It  may  be  noted  from 

the  derivation  in  Section  4.3.2  that  <^'B>t^<^A>t  <<:  ^ ‘*'S 
actual  format  of  the  light  coupling  assumption.  Data  presented 
later  in  this  section  show  that  this  was  not  grossly  violated. 

The  choice  of  structures  for  the  wave  transmission  experi- 
ment was  based  on  satisfying,  as  much  as  possible,  the  assump- 
tions which  are  built  into  the  derivation  of  Eq.  4.56.  It  was 
felt  that  this  would  allow  attention  to  be  focused  on  the  more 
specialized  question  of  assembling  an  SEA  model  from  test  data. 

A prerequisite  for  the  test  structures  is  that  modal  densities 
be  high.  For  a uniform  plate  of  finite  size,  the  modal  density 
n(f)  in  modes  per  Hz.  is  [20]: 


/FT 


This  implies  modal  densities  of  about  24  and  29  modes  per 
80  Hz.  frequency  band  for  the  smaller  (body  B)  and  larger  (body 
A)  plates,  respectively. 
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4.6.3  Experimental  Procedure 

The  test  procedure  consisted  basically  of  12  steps. 


(1) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(8) 

(9) 

(10) 


Set  up  plates  in  the  coupled  configuration  and  es- 
tablish a suitable  drive  level  and  drive  spectrum 
shape . 

Measure  the  smoothed  spectral  density  of  transmitted 
power  from  force  and  acceleration  signals  at  the  coup- 
ling point  of  plate  B. 

Measure  the  smoothed  spectral  density  of  total  vibra- 
tional energy  of  each  plate  from  accelerometer  signals. 
A uniform  grid  of  40  locations  on  plate  A and  35 
locations  on  plate  B was  used. 

Remove  the  coupling  link  and  arrange  the  shaker,  force 
cell,  and  accelerometer  to  measure  the  mobility  func- 
tion looking  into  the  coupling  point  of  plate  B. 

Repeat  step  (4)  on  plate  A. 

Compute  frequency-averaged  mobility  functions  for  the 
desired  frequency  bands  using  the  results  of  steps 
( 4 ) and  ( 5 ) . 


Compute  the  predicted  coupling  loss  factor  weighted 
by  2irfc  from  the  results  of  step  (6)  and  Eq.  (4.56). 


Form  the  actual  internal  loss  factor  of  plate  B as 
<7IAB>t/<EB>t  = 27lfcnB^fc^* 


Compute  the  predicted  energy  ratio  using 

the  results  of  steps  (7)  and  (8)  and  Eq.  (4.10). 


Use  the  results  of  steps  (2)  and  (3)  to  compute  actual 
transmitted  power  and  component  energy  in  frequency 
bands.  Form  the  ratios  <7r^B>t^<EA>t  anc*  <EB>t^<EA>t 

for  frequency  bands. 


(11)  Make  comparison  plots  of  actual  and  predicted  values 


of  <EB>t/<EA>t  and  <7rAB>t/<EA>t* 


(12)  Rearrange  the  hardware  to  drive  a single  plate  (the 
larger)  and  measure  steady  state  energy  and  angular 
response  at  an  interior  point.  Plot  data  as  smoothed 
spectral  densities  to  verify  Eq.  (4.78). 
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In  principle,  step  (12)  could  have  been  carried  out  using 

an  indirect  drive  to  the  plate  to  obtain  a more  nearly  end-to- 

end  comparison  between  theory  and  experiment.  In  fact,  this 

step  was  carried  out  as  something  of  an  afterthought  and  the 

direct  drive  was  used  to  reduce  experimental  time  and  cost.  It 

was  noted,  however,  that  the  smoothed  PSD  of  force  input  to  the 

plate  was  similar  for  either  direct  or  indirect  drive,  so  the 

2 

comparison  of  predicted  and  measured  <0  and  0 r.m.s.  should 
be  representative. 

An  error  analysis  of  the  differential  acceleration  method 
used  to  measure  the  spectral  density  of  angular  response  is 
given  as  an  example  in  Section  6.2.1. 

In  reference  to  step  (11),  a second  set  of  predicted  values 
for  and  <Tr^g>  /<E^>.£  was  computed  using  the  theo- 

retical mobility  functions  for  infinite  plates  of  the  same 
material  and  thickness  as  the  actual  plates  [21].  Thus,  three 
sets  of  data  are  available  for  the  comparison  quantities  noted 
in  step  ( 11 ) : 

(a)  Actual,  as  measured  experimentally. 

(b)  Predicted,  using  a theoretical  infinite  uniform  plate 
approximation . 

(c)  Predicted,  using  an  infinite  uniform  structure  approx- 
imation defined  by  frequency  averaging  of  measured 
mobility  functions. 

Virtually  all  of  the  power  and  energy  measurements  were 
accomplished  by  first  obtaining  a discrete  approximation  to 
their  spectral  density  functions  by  means  of  digital  discrete 
Fourier  transform  (DFT)  processing  with  ensemble  averaging. 

This  function  could  then  be  integrated  over  any  desired  fre- 
quency band  to  obtain  the  < >t  quantities  of  the  SEA  equilibrium 
equations.  The  only  restrictions  were  that  the  desired  fre- 
quency band  must  lie  entirely  below  1/2T  and  be  an  integer 
multiple  of  1/NT  where  T is  the  sampling  interval  and  N is  the 
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time  domain  block  size.  Using  digital  methods,  it  was  not 
necessary  to  specify  either  integration  bandwidth  or  band  center 
frequencies  prior  to  data  acquisition.  In  effect,  many  very 
narrow  bands  were  defined  and  combined  afterwards  to  obtain  the 
desired  bandwidth  for  the  SEA  model. 

Source  code  listings  and  a description  of  a typical  test 
run  are  provided  in  Appendix  C.  These  are  recommended  as  being 
the  most  detailed  documentation  of  the  procedure. 

Spectral  densities  and  mobility  functions  were  measured 
with  a 2.5  Hz.  frequency  resolution  up  to  1280  Hz.  and  then 
smoothed  over  32  spectral  lines  (80  Hz.).  A constant  bandwidth 
was  chosen  in  order  to  keep  the  number  of  interacting  modes  per 
band  roughly  constant.  An  interesting  aspect  of  the  digital 
procedure  is  that  it  is  not  necessary  to  restrict  oneself  to 
1280/80  = 16  frequency  bands.  It  is  actually  more  convenient 
to  consider  an  80  Hz.  averaging  band  centered  over  each  spectral 
line  at  2.5  Hz.  intervals.  Thus  the  results,  both  predicted 
and  actual,  have  the  appearance  of  continuous  curves,  but 
actually  represent  a series  of  heavily  overlapped  discrete  bands. 
A 40  Hz.  band  at  either  end  of  the  base  0-1280  Hz.  analysis 
range  must,  of  course,  be  excluded  from  the  smoothed  results, 
but  this  is  of  no  consequence  for  the  intended  purpose. 

The  DFT  resolution  band  of  2.5  Hz.  was  chosen  for  a speci- 
fic reason.  It  was  known  that  this  would  be  small  compared  to 
the  smoothing  band  but  still  inadequate  to  obtain  a good  repre- 
sentation of  the  rapidly  fluctuating  mobility  function  for  the 
lightly  damped  plates.  However,  it  was  desired  to  measure  the 
effect  of  this  shortcoming  on  the  smoothed  version  of  the  func- 
tion from  which  the  coupling  loss  factors  are  actually  estimated. 
If  this  moderate  level  of  resolution  could  yield  reasonable 
results,  it  would  have  important  practical  implications  for 
testing  of  real  structures.  It  should  be  noted  that  the  actual 
power  and  energy  comparison  quantities  are  essentially  invariant 
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with  respect  to  DFT  resolution.  This  is  so  because  the  smooth- 
ing with  respect  to  frequency  can  be  shown  to  be  equivalent  to 
starting  with  the  same  time  data  but  dividing  it  into  a larger 
number  of  shorter  records.  The  shorter  records  would  produce  a 
coarser  frequency  resolution  but  the  statistical  confidence  of 
the  estimate  of  power  within  a given  frequency  band  would  remain 
the  same. 

4.6.4  Experimental  Results 
4. 6. 4.1  Principal  Results 

Figures  15  and  16  present  the  main  results  of  the  wave 
transmission  experiment.  Figure  15  compares  the  actual  ratio 
of  transmitted  power  to  transmitting  body  energy  with  predicted 
values  obtained  using  two  different  representations  for  coupling 
point  mobility.  Figure  16  shows  a similar  comparison  for  nor- 
malized receptor  body  energy,  and  is  based  on  actual  measured 
damping  in  plate  B,  as  calculated  by  Eq.  (4.79).  Disagreement 
between  between  measured  mobility  is  about  1.5  to  6 dB  (factor 
of  1.4  to  4)  in  the  range  beyond  300  Hz.  The  predicted  value  of 
<11  > /<E . > . using  an  infinite  plate  approximation  is  somewhat 

better  at  0 to  5 dB  error  (factor  of  1 to  3.2).  For 
the  corresponding  agreement  figures  are  0 to  3 dB  for  both  pre- 
diction methods.  In  general,  it  appears  at  this  point  that  the 
infinite  plate  approximation  is  the  better  of  the  two.  However, 
some  further  data  presented  in  the  next  section  suggests  that 
better  DFT  frequency  resolution  in  the  measurement  of  H^  and  Hg 
would  improve  the  accuracy  of  the  frequency-averaged  measured 
mobility  approach.  It  also  appears  that  a wider  smoothing  band- 
width would  be  appropriate  and  would  improve  the  accuracy  of 
both  methods.  At  any  rate,  the  results  are  quite  encouraging. 
The  receptor  body  energy  is  within  a factor  of  two  of  the  mea- 
sured value  in  all  frequency  bands,  which  implies  that  a 
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Figure  15  Normalized  Transmitted  Power  < tt A _. > /<E 


0.  Band  Center  Frequency  - Hr.  1000, 


Figure  16  Normalized  Energy  of  Indirectly 

Excited  Body.  Actual  Damping  Used. 
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spatially-averaged  r.m.s.  displacement  or  velocity  would  be 
within  41%. 

The  comparison  of  angular  response,  actual  vs.  estimated 
from  measured  energy,  is  given  in  terms  of  smoothed  spectral 
density  functions  and  r.m.s.  values  in  Figure  17. 

Predicted  r.m.s.  angular  displacement  is  within  8%  of  ac- 
tual. Most  of  the  discrepancy  appears  to  be  due  to  a single 
mode  around  250  Hz.  which  contributes  disproportionately  to  mean 
square  angle  at  the  particular  point  chosen  for  comparison. 
Errors  of  this  type  are  inherent  in  the  SEA  procedure  if  in- 
dividual mode  shapes  are  not  known.  This  is  discussed  exten- 
sively in  Chapter  4 of  Lyon  [13]. 


4. 6.4. 2 Measurement  of  Internal  Loss  Factor 

Figure  18  shows  a comparison  of  internal  loss  factor 
(weighted  by  band  center  frequency)  as  measured  by  two  differ- 
ent methods.  The  continuous  curve  is  <tta  D> . /<E0> . obtained 

Ad  l b t 

by  direct  measurement  of  the  numerator  and  denominator  and  is, 
by  definition,  the  correct  quantity  for  SEA  modeling.  <ED>. 

D L 

is  obtained  as  a mass-weighted  sum  of  velocity  PSD's  for  forty 
points  arranged  over  the  plate.  The  symbol  i-O  » indicates  to  rjD 
estimated  by  curve-fitting  to  the  measured  coupling  point 
mobility  and  using  Eq.  (4.83).  The  width  of  the  symbol  indi- 
cates the  frequency  range  over  which  Hg(f)  was  measured  using  a 
high-resolution  DFT.  Natural  frequencies  and  modal  damping 
ratios  as  estimated  by  curve  fitting  are  tabulated  in  Table  2 
for  the  four  bands  shown. 

Agreement  between  the  two  measurement  methods  is  excellent. 
The  0 to  1 dB  difference  is  better  than  typical  repeatability 
of  damping  measurements.  This  result  is  quite  encouraging  be- 
cause measurement  by  curve  fitting  was  about  ten  times  faster 
for  this  simple  case.  For  a more  complex  structure,  the 
advantage  would  be  even  greater  due  to  the  effort  of  assembling 
a mass  matrix  which  is  circumvented  in  the  curve  fitting  method. 
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Figure  17  Smoothed  Power  Spectral  Density  and  R.M.S.  Value  of  High-Frequency  Angular 
Vibration  at  a Typical  Point  of  a Uniform  Rectangular  Plate 


Denotes  level  and  measurement  band 
of  values  obtained  by  curve  fitting 
of  coupling  point  mobility 
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Figure  18  Internal  Loss  Factor  vs.  Frequency  of  Indirectly  Excited  Plate 


TABLE  2 


NATURAL  FREQUENCIES 
AND  NODAL  DAMPING  RATIOS  FOR  PLATE  B 


Band  1 

f(l,)  Hz 

300-340  Hz 

r<i) 

Band  2 

f(i,}  Hz 

505-540  Hz 

£(i> 

303.9 

.00329 

509.0 

. 00380 

306.3 

. 00497 

511.7 

. 00059 

309.8 

. 00123 

521.3 

. 00059 

325.8 

. 00283 

522.9 

. 00173 

326.8 

. 00125 

531.3 

. 00086 

330.3 

. 00037 

533.6 

. 00134 

336.9 

. 00182 

542.4 

. 00098 

Band  3 

650-700  Hz 

Band  4 

750-800  Hz 

f(i>  Hz 

£<i) 

f(i>  Hz 

EU) 

654.3 

. 00092 

756.5 

. 00035 

657.3 

. 00062 

758.6 

. 00095 

659.4 

. 00106 

760.1 

. 00040 

663.5 

. 00096 

766.4 

.00035 

669.5 

.00106 

770.6 

. 00031 

676.2 

. 00007 

772.0 

. 00061 

679.9 

. 00064 

775.9 

.00043 

682.3 

.00086 

784 . 3 

. 00046 

686.5 

. 00032 

789.8 

. 00099 

689.2 

. 00070 
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4. 6. 4. 3 Other  Results 


Figure  19  indicates  the  probable  effect  of  inadequate 
DFT  resolution  in  measuring  mobilities  H.(f)  and  HD(f).  The 
data  shown  is  modulus  of  the  acceleration  admittance  rather 
than  real  part  of  velocity  admittance  (mobility)  but  the  impli- 
cation is  still  quite  clear.  Decreasing  the  frequency  resolu- 
tion will  suppress  the  peaks  in  H(f)  without  filling  in  the 
valleys.  The  frequency  averaged  version  of  H(f)  will  thus  be 
reduced  and  u>nAB  predicted  from  it  by  Eq.  (4.56)  will  be  in- 
creased. In  Figure  15  the  predicted  value  of  w nAn  follows 
the  actual  but  is  higher  over  a broad  range  of  frequencies.  It 
thus  appears  that  a smaller  DFT  resolution  element  would  result 
in  improved  accuracy. 

A closer  examination  of  the  measured  HD(f  ) function  shows 
another  peculiarity.  It  is  plotted  in  Figure  20  in  both  real- 
imaginary  and  modulus  formats.  In  theory,  from  Reference  [14], 
the  real  part  of  Hg(fc),  called  the  conductance,  should  approach 
a constant  with  increasing  fc  while  the  imaginary  part,  or  sus- 
ceptance,  goes  to  zero.  From  Figure  20,  the  modulus  approaches 
a fairly  constant  value  but  neither  Re[HD(f  )]  nor  Im[Hn(f  )] 
behave  as  predicted.  Identical  behavior  was  observed  with 
HA(fc).  It  appears  that  some  further  work  on  measurement  of 
averaged  mobility  of  high  modal  density  structures  will  be  in 
order  if  wave  transmission  methods  are  to  be  pursued  further. 

The  spectral  density  of  transmitted  power  and  its  smoothed 
version  are  shown  in  Figure  21.  Spectral  densities  of  total 
vibration  energy  for  the  A and  B plates  are  shown  in  Figure  22. 
Two  observations  may  be  made: 

(1)  The  distributions  of  energy  and  power  with  respect 
to  frequency  are  reasonably  even.  In  testing  the 
SEA  model  with  broadband  excitation,  one  is  essen- 
tially running  several  experiments  simultaneously, 
one  in  each  frequency  band.  Some  care  must  be  taken 
so  that  a large  signal  in  one  band  does  not  cause 
error  in  another  due  to  dynamic  range  limitations . 
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Figure  iq  Modulus  of  Acceleration  Admittance  at  Center  Point  of  Large  Plate. 
Measured  with  Frequency  Resolution  of  Cl)  1.94  Hz. 
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Figure  20  Measured  Coupling  Point  Mobility  of 

Small  Plate  After  Smoothing 
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Spectral  Density  of  Transmitted  Power,  Smoothed  and  Unsmoothed 
Versions 


Directly  excited  plate  <EA> 
Indirectly  excited  plate  <E 
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Figure  22  Smoothed  Spectral  Density  of  Total  Vibration  Energy. 


This  is  particularly  true  with  the  fixed  point  arith- 
metic built  into  most  minicomputer  DFT  software. 
Figures  21  and  22  show  less  than  40  dB  of  range, 
which  should  cause  no  problems. 

(2)  The  validity  of  the  assumption  <E^>  >>  <Eg>t  may  be 

checked  using  Figure  22.  Over  most  of  the  range 
above  2 00  Hz  the  ratio  of  <^>-t;/<Eg>t  is  in  the  range 

of  4 to  6.  Therefore,  the  assumption  is  being  vio- 
lated but  not  grossly. 

4. 6. 4. 4 Results  for  Lightly  Coupled  Case 

An  unsuccessful  attempt  was  made  tb  predict  coupling  loss 
factors  for  light  coupling  between  the  two  plates.  A light 
fiberglas  spring  of  ring  shape  with  kc(static)  = 163  lbf/in. 
was  substituted  for  the  aluminum  coupling  t*od.  Figure  23 
shows  the  results.  The  disparity  between  durves  1 and  2 is 
caused  by  the  fact  that  the  actual  Hc(f)  is  much  higher  than 
i2irf/k  for  frequencies  over  200  Hz.  In  effect,  the  ring  mass 
is  not  negligible  and  the  dynamics  of  the  coupling  element  are 
not  of  the  simple  form  assumed  in  deriving  Eq.  (4.56). 

Curve  3 of  Figure  23  resulted  from  trying  to  remedy  the 
above  problem  in  a simple  way.  The  B structure  was  redefined 
as  the  series  combination  of  the  spring  and  smaller  plate. 

Hd ( f ) for  this  combination  was  measured  in  the  usual  way.  The 

D 

combination  was  then  considered  to  be  attached  to  plate  A by  a 
spring  of  infinite  stiffness  and,  thus,  Hc  = 0.  The  poor 
accuracy  of  computed  under  these  assumptions  is  shown  by 

curve  3.  It  is  probably  due  to  the  fact  that  the  coupling  point 
to  the  new  B structure  is  no  longer  a "typical"  point  and, 
thus,  another  assumption  built  into  Eq . (4.56)  is  violated. 
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Figure  23  Normalized  Transmitted  Power  With  Light  Coupling  Spring 


4.7  CONCLUSION 
4.7.1  Summary 

The  motivation  for  study  of  high  frequency  methods  in  the 
current  effort  has  been  summarized  and  the  method  of  Statistical 
Energy  Analysis  has  been  selected  for  further  study.  The  basic 
principles  of  SEA  have  been  reviewed  within  the  context  of 
analysis  of  airborne  optical  systems. 

The  wave  transmission  method  for  prediction  of  coupling 
loss  factors  has  been  reviewed  and  an  alternate  derivation  of 
the  principal  result,  without  reference  to  waves,  has  been 
presented.  It  has  been  applied  to  a simple  system  involving  two 
coupled  plates  of  high  modal  density.  Coupling  loss  factors 
have  been  predicted  for  the  case  of  one  plate  only  receiving 
direct  excitation.  Predictions  have  been  made  on  the  basis  of 
modeling  each  plate  either  as  an  infinite  uniform  extension  of 
the  real  plate  or  simply  as  an  infinite  uniform  structure 
equivalent  to  the  actual  in  the  sense  of  having  the  same  fre- 
quency-averaged mobility  at  the  coupling  point.  The  basic 
assumptions  of  SEA  have  been  used  to  derive  a simple  formula 
for  inferring  r.m.s.  angular  response  from  component  energy  for 
the  test  case  of  a uniform  plate.  They  have  also  been  used  to 
estimate  a global  internal  loss  factor  from  a single  coupling 
point  mobility  measurement. 

An  experiment  has  been  carried  out  to  test  various  theo- 
retical predictions  described  above  for  the  case  of  two  coupled 
uniform  plates.  Agreement  with  respect  to  component  energy  and 
transmitted  power  was  generally  encouraging,  although  it  is 
suspected  that  some  improvement  in  the  test  procedure  itself 
may  be  possible.  Prediction  of  angular  response  from  the  energy 
resultant  was  quite  accurate,  although  it  must  be  noted  that 
this  was  essentially  a demonstration  case  since  the  method  used 
is  restricted  to  uniform  beams  or  plates.  It  was  shown  that 
excellent  accuracy  is  possible  in  obtaining  internal  loss  factor 
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via  curve-fitting  of  the  measured  coupling-point  mobility  func- 
tion. 

At  this  point  it  is  appropriate  to  review  what  has  and  has 
not  been  accomplished  to  date  by  the  work  on  high  frequency 
angular  vibration.  It  would  not  be  accurate  to  say  that  a first 
generation  method  has  been  developed  for  prediction  of  high  fre- 
quency vibration,  angular  or  otherwise.  That  goal,  in  retro- 
spect, was  simply  unrealistic  in  view  of  the  complexity  and  size 
of  the  problem  relative  to  the  resources  allocated  to  it  under 
this  contract.  What  has  been  accomplished  is,  nevertheless, 
necessary  and  useful  in  the  pursuit  of  that  end.  It  has  been 
demonstrated  that  angular  vibration,  in  the  form  of  a coarsely 
resolved  power  spectrum  and  associated  r.m.s.  value,  can  be  pre- 
dicted in  a high  frequency  situation;  i.e.,  one  where  determin- 
istic modeling  would  be  impractical.  Wave  transmission,  one  of 
the  simplest  methods  for  obtaining  coupling  loss  factor  for 
single  point  connections,  has  been  recast  in  a format  suitable 
for  structures  with  large  but  finite  modal  densities.  The  new 
interpretation  does  not  require  modeling  explicitly  in  terms  of 
traveling  waves  and  should  be  easier  to  relate  to  practical 
structures.  Finally,  data  acquisition  and  processing  software 
has  been  developed  and  used  for  tasks  which  have  a high  pro- 
bability of  occurring  in  the  development  of  more  general  SEA 
methods.  The  usefulness  of  interactive  digital  signal  proc- 
essing technology  for  SEA  modeling  has  thus  been  demonstrated. 

On  the  whole,  it  is  the  opinion  of  the  investigators  that  the 
original  decision  to  pursue  SEA  as  the  most  promising  method 
for  high  frequency  prediction  has  been  reinforced  by  this  work. 

4.7.2  Suggestions  For  Future  Work 

The  work  performed  to  date  on  high  frequency  methods  has 
been  quite  useful  in  identifying  specific  areas  where  additional 
effort  could  be  cost-effective.  The  ultimate  goal  is  the 
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development  of  methods  which  are  practical,  though  based  on  a 
solid  theoretical  foundation,  for  prediction  of  high  frequency 
vibration  of  airborne  optical  systems.  To  this  end,  the  follow- 
ing specific  areas  are  suggested: 

(1)  It  may  be  possible  to  model  individual  normal  modes 
as  SEA  components.  This  seems  natural  when  an  opti- 
cal system  with  known  normal  modes  is  connected  to  a 
complex  airframe  with  modes  which  are  numerous  and 
not  individually  known. 

(2)  The  basic  idea  of  the  wave  transmission  method  might 
be  extended  to  cover  the  case  where  components  are 
connected  at  more  than  one  degree  of  freedom.  An 
admittance  matrix  formulation  seems  to  be  called  for. 
It  may  be  anticipated  that  this  effort  would  be  quite 
software-intensive . 

(3)  It  might  be  possible  to  incorporate  finite  element 
results  into  an  SEA  model.  An  interface  format  sug- 
gested by  work  to  date  is  the  mechanical  admittance 
function  averaged  with  respect  to  frequency  [22]. 

It  is  suspected  on  theoretical  grounds  that  this 
quantity  can  be  predicted  by  a finite  element  model 
which  is  too  coarse  to  accurately  predict  individual 
normal  modes. 

(4)  The  coupled  plate  experiment  suggested  numerous  im- 
provements in  the  acquisition  and  processing  of  ex- 
perimental data  to  obtain  coupling  loss  factors. 
Several  avenues  were  identified  but  not  pursued  due 
to  time  restrictions. 
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SECTION  V 

RELATIONSHIPS  BETWEEN  LINEAR  AND  ANGULAR 
VIBRATION  IN  AIRCRAFT  STRUCTURAL  COMPONENTS 

Because  of  the  predominant  availability  of  linear  vibra- 
tion data  as  compared  to  that  for  angular  vibration  of  struc- 
tural components,  the  task  of  finding  a usable  and  correct 
relationship  between  these  two  vibration  quantities  appears 
to  be  justifiable  on  the  basis  that  we  could  use  linear  vi- 
bration data  to  determine  angular  vibrations  for  those  por- 
tions of  the  aircraft  structure  which  are  of  interest.  It 
seemed  like  an  appropriate  way  to  attack  the  problem  would 
be  to  investigate  the  behavior  of  the  simplest  two  degree-of- 
freedom  (DOF)  model  of  a structural  component,  which  would  be 
a spring-supported  rigid  bar,  subjected  to  a temporally  ran- 
dom concentrated  load.  In  this  way  one  could  begin  to  obtain 
a feel  for  how  a linear-to-angular  relationship  would  depend 
upon  the  load  and  structural  parameters  (i.e.  mass,  stiffness, 
geometry)  for  a simple  system.  The  next  step  was  to  proceed 
to  more  complex  structural  components  and  to  determine  linear  - 
to-angular  relationships  for  them  as  a function  of  position 
on  the  structure.  This  was  done  for  a beam  with  simple- 
support  boundary  conditions,  a plate  with  simple -support 
boundaries,  and  a beam  with  free-free  boundary  conditions 
all  subjected  to  temporally  random,  spatially  deterministic 
loading  conditions.  Some  of  the  results  of  this  study  are 
presented  here.  However,  the  reader  is  referred  to  Reference 
[19]  for  the  detailed  results.  In  order  to  examine  a structural 
form  somewhat  more  representative  of  an  aircraft  structural 
component,  a NASTRAN  analysis  of  a stiffened  curved  panel 
subjected  to  a concentrated  temporally  random  load  was  completed 
to  round  out  the  effort. 
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5.1  LINEAR-TO-ANGULAR  RELATIONSHIP  OF  SPRING-SUPPORTED  RIGID 
BAR  SUBJECTED  TO  TEMPORALLY  RANDOM  CONCENTRATED  LOAD 
The  simplest  structural  system  possessing  both  linear 
and  angular  degrees  of  freedom  is  a spring-supported  rigid 
bar  as  pictured  below  in  Figure  24. 


P(t) 


The  spring  and  damping  constants  are  defined  as  follows: 

~ k ) c^  ^ 

k2  = yk  ; c2  = Be  (5.1) 

where  0 < 6 and  0 < y.  The  assumptions  made  in  the  subsequent 
analysis  of  this  structure  are  (1)  no  gravity  forces  are  present, 
and  (2)  angular  displacements  are  small  such  that  sin  6=0. 
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The  differential  equations  of  motion  governing  this  system  may 
be  written  in  matrix  form  as 


M 0 

>1 

(l+B)  (Bttj-o^) 

• 

X 

I 

+ C 

_° 

y 

( Ba2-a1) (a12+Ba22 ) 

• 

y 

+ k 


(l+y)  (yo^-c^) 

X 

-p 

2 2 

(Ya2~a1)(a1  +y<*2  ) 

y 

-Pn 



- __ 

(5.2) 


where  y = L0.  In  order  to  facilitate  the  solution  of  Eq.  (5.2) 
one  may  employ  the  linear  coordinate  transformation  from 
physical  to  normal  coordinates 


which  will  uncouple  the  system.  In  normal  coordinates,  the  set 
of  D.E.'s  Eq.  (5.2)  will  take  on  the  form 


If  the  following  substitutions  are  made 
2Bi=ci  ; 2 B 2 = C 2 ; and  u^2^;  S>22  = K2 

and 

a1=  -(ui;l  + nu21);  a2=  -(u12  + nu22) 


u 


11 


u 


12 


u 


22 


(5.4) 


(5.5a) 


(5.5b) 


Equation  (5.4)  becomes 

Ql  + 26^  + S12q1 
q2  + 2B2q2  + w22q2 


axP(t) 

a2P(t) 


(5.6) 

(5.7) 
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(5.8) 


for  which  the  solutions  are 

f°o 

qi(t)  = a1|h1(<)»)P(t-4»)d<|» 

J o 

q2(t)  = a2[h2(4»)P(t-4>)d4, 

* o 

where 

-ixt  -B2t 

h,  (t ) = — sin  w't;  h?(t)  = — sin  u>2't 

S1  fi2 

5 ~ ? -w  rz  2 ” 2 

and  uj^'  =/  ^ -6^  ; u2 ' =/  u>2  -&2 


(5.9) 


(5.10) 


The  next  question  to  answer  is  what  form  x and  y will  take 
if  P(t)  is  a random  function  (stationary  and  ergodic).  At  this 
point  one  might  ask  about  making  n = n(t)  thereby  allowing  the 
load  to  be  random  as  to  its  point  of  application  as  well  as  its 
magnitude;  however,  this  will  not  be  done  here. 

Working  with  x(t)  first  and  substituting  Eqs . (5.8)  and 
(5.9)  in  Eq.  (5.3)  gives 

oo 

x(t)  = |[u^1a^h^((J>)  + u12a2h2  (<J>)  ]P(t-<j>)d$  (5.11) 

o 


Since  P(t)  is  random  and  is  usually  assumed  to  have  a Gaussian 
distribution  about  its  mean  value,  x(t)  will  also  be  Gaussian, 
if  our  structural  system  is  linear.  One  can  calculate  the 
auto  correlation  of  x(t)  then  to  be 


E[x(t )x(t+x ) ] 
*^Ullalhl(<,)2) 


= E[  (u11a1h1(4>1)  + u12a2h2  (4>1 ) } • 
* O'  o 


(5.12) 


+ u12a2h2  (<f>2 ) )P(t-4>1)P(t+T-4>2  )d(|)1d(})2] 
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which  can  be  written 


Rx(  t ) - j [ Rp^T+4>i  4*2^  ai  ^1  ^ ^l  ^1  ( *^2  ^ 

^ o ' o ^ 

+ u11a1u-L2a2^i^i^2^2^  + ^i^<t>2^2^1^ 

+ u122a22h2(4.1)h2(<j>2)}d<}.1d<t.2  (5.13) 

In  terms  of  spectraf  densities,  the  Wiener-Khintchine  relation 
states  that  m 

Sx(a))  = \ Rx(T)e_ia,TdT  (5.14) 

— OO 

Substituting  Eq.  (5.13)  for  Rx(t)  into  Eq . (5.14)  and 
integrating  yields 

Sx(oj)  = [u112a12  ^^^(a))  | 2 + u122a22  |H2(o3)  | 2]Sp(oj) 

(5.15) 

+ u^1aiui2a2^1^tJL)^2*^a)^  + H2  ^w^i*  (w)]S  (go) 

where 

H,  (to)  = ^ - ; H (to)  = — ^ 1 ^ (5.16) 

u>1  -toz  + 2i6^Go  C2  -u>  +2iB2<o 

and  H1*(w)  and  H2*(to)  are  the  complex  conjugates  of  H-^to)  and 
H2(w).  Similarly,  one  would  find 

Sy(oj)  = [u212a12|H1(u))  |2  + u22a22|H2(aj)  |^]s  (to) 

P (5.17) 

+ u21a1u22a2[H1(to)H2*(to)  + H2  (to)H1* (to)  ]Sp(to) 

For  white  noise  forcing  with  constant  spectral  density, 

Sp(to)  = SpD,  the  next  step  would  be  to  determine  the  mean 
square  responses 
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?-r 

7-r 

j — c 


Sx(n))du) 


S ( a) ) doj 

. y 


(5.18) 

(5.19) 


If  one  lets 


H 


11 


(°°  ~ rco 

= |H1(a))|  du)  ; H-^  = H (a>)H 2*(u)du) 

J OO  J CO 


f°°  ^ ^oo 

^21  = I H2  (ti))H^*(a))da);  H22  = I | H2  (a>)  | 2du)  (5.20) 

J — CO  J —CO 

Equations  (5.18)  and  (5.19)  become 
~2  r 2 2~ 


2 2, 


Taking  the  ratio  of  mean  square  angular  to  mean  square  linear 
displacement,  one  obtains 


yrms  _ /U21  al  H11  + u21u22ala2(H12+H21)  + u22  a2^22 


12+H2i) 

+ u12  a2  H22  3Spo 

(5.21) 

12+^21 ) 

* u222a22i522]Spo 

(5.22) 

^rms  ^ un  ai  %-]_  + unui2aia2(^12+^21)  + u122a2^22 


(5.23) 


where 


H11  = 7r/CiKi 


» H22  ~ tt/C2K2 


(5.24) 
, 2 


H12  = 2it(Ci  + C2)/{[K1-K2-|<:1(C1+C2)32+(C1+C2)2(K1— ^-)}  (5‘25) 

C 2 

H21  = 2ti(C1  + C2)/{[K2-K1-^2(C1  + C2)]2+(C1  + C2)2(K2— £-)  } (5.26) 
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Calculating  the  coefficients  of  in  terms  of  M1  and  M2 , one 
arrives  at 


- 1 r,  1 1 x 1 


u21~al"  = 5HrC(HT  ' FT*- 


2 "1  "2  1+a 


7 + ^ + R7)<1-^73,] 


1+a 
(5.27) 


u21u22ala2  = * Rpj  /^7 


(5.28) 


u2,  a„2  . ^[(1  . 1 , 1 


22  2 4M, 


1+a 
(5.29) 


2 2 
U11  1 


+ 2^nr/-^  + ir)(1  V1-- 

4Mi  n2  M1  1+a^  /rW  1+a2  M1  / l+a2 


UllU12aia2  = 


_ _ ! — [ ( ~ — + Q — ) — + /i  1 -i 

4M  LVM  m 1 2 /M  M J ^ 9-* 

4nl  1 n2  1+a2  vn±n2  2 l+a2 


l+a‘ 
(5.30) 


(5.31) 


2 2 

U12  a2  - 4M 


r'C(fT'fr)“i~T  •2feV/J~2  ■ fT)(1- 

"l  n2  1 1+a^  /nl”2/  1+a2  M1  / l+a2 


1+a 
(5.32) 


where 


M 

a = 2Tybi21-  c^)  (al  + ya2  " (1  + yJ)  (5-33> 

and  Mn  = M;  M„  = I /L2. 

1 Z C 

If  one  assumes  that  the  damping  is  proportional,  then 
C-^  = ^ and  ^2  = ^ ^2  (A  a constant) 
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where 


Ki  = A1+ A/tT?’  * ^7/^  + 2m/1-/1-  A* 


K, 


2M 


1 (I-/1- 


l+a' 


k2  / 1 
*/MlM2»'  1+a2 


;+a7  + 2M2 


(1  + 


* T + 


1 + a" 


and 


k^  = (l+y)k 
k2  = (ya2  - ax)k 
k3  = (a2  + ya2)k 


( 


01  - 


There  is  a special  case  which  one  might  examine.  When  y = — , 

a a2 

which  implies  that  0 = — for  proportional  damping,  the  DE 

a2 

Eq.  (5.2)  automatically  uncouple;  and  the  elements  of  the 
transformation  matrix  reduce  to: 


u n = /TTfi^ 


u22  = /TTM^  ; 


u12  = U21  = 0 


< 


Also 


al  U11 


a2  = "nU22 


H = n/C1K1  = (n/Ak)  ( 1 + o^/cx^/M2 
H22  = tt/C2K2  = ( Tr/Ak ) ( a2  + a^)2  L4/!2 


Equation  (5.23)  then  reduces  to 


rms  _ nML‘ 


rms 


1 2 (1+a.. /a0 ) 2 
c 1 l 

, ^42 

al+CXia2^  ^ ^ 


n (l+a1/a2) 
ala2 ( l+aq/ a2 ) 


or 


rms 


rms 


ala2 


y = L0 
J rms  rms 


(5.34) 

(5.35) 

5.36) 

5.37) 

5.38) 

5.39) 

5.40) 

5.41) 

5.42) 
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1 

for  the  condition  y = — , which  physically  represents  that  case 

a2 

where  the  spring  and  damping  forces  at  each  end  of  the  bar 
exactly  match  the  translational  inertia  reactions  at  those 
points . 

One  might  observe  that  y /x  may  vary  between  zero  and 
a finite  number  depending  upon  the  location  of  P.  Equation 
(5.42)  also  portends  a rather  significant  variance  depending 
upon  the  values  for  and  a^.  The  occurrence  of  such  large 
variances  would  suggest  that  spatially  averaged  values  for 
random  locations  of  P(t)  are  subject  to  question. 
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5.2  BEHAVIOR  OF  BEAMS  SUBJECTED  TO  TEMPORALLY  RANDOM  LOADING 

CONDITIONS 

Lee  and  Whaley  had  already  laid  some  of  the  ground  work 
for  beams  in  their  paper  [23].  One  of  the  major  analytical 
problems  with  more  complex  structures  is  that  the  loading 
conditions  can  be  random  in  space  as  well  as  random  in  time. 

Lee  and  Whaley  assumed  that  load  q(x)  on  the  beam  was  random 
in  space  such  that  the  Fourier  coefficient  was  completely 
uncorrelated  with  q^ , i.e.  <qnq^>  = ° for  n t k,  which  reduced 
the  double  summations  to  single  summations  (and  provided  one 
way  to  circumvent  spatial  randomness).  An  equally  realistic 
approach  seemed  to  be  that  of  assuming  that  the  load  would  be 
deterministic  in  space  but  random  in  time,  since  most  experi- 
mental investigations • of  angular  vibrations  in  structures  would 
have  to  proceed  on  that  path  anyway. 

In  order  to  assess  the  effect  of  various  generalized 
coordinate  loading  factors  qn>  two  spatially  deterministic, 
temporally  random  loading  conditions  on  a beam  with  simple 
support  were  considered  and  the  •spatial  variation  of  the  ratio 
of  r.m.s.  angular  to  r.m.s.  linear  displacement  along  the  beam 
was  examined.  This  spatial  variation  was  compared  with  Lee  and 
Whaley's  "beam  averaged  r.m.s.  amplitudes." 

The  derivation  of  the  ratio  of  r.m.s.  angular  to  r.m.s. 
linear  displacement  along  the  beam  has  been  presented  in  detail 
in  Reference  [19],  the  Phase  II  Interim  report  on  this  contract. 
For  white  noise  forcing  with  constant  spectral  density,  this 
ratio  was  found  to  be 


0 

rms 

y 

-'rms 


where 

Ink  = 87I8/[<‘V‘\-‘+B2)2  + (4BwM2] 


(5.43) 
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and 


3 


(5.44) 


0)  T = 
n 


$7? 


2 4 EItt 

w = n r- 

n t 4 

mL 


In  order  to  obtain  the  spatial  variation  in  0 /y  , the 

rms  J rms ’ 

following  parameters  for  the  beam  were  used: 

L = 100  in. 


E = 10  x 10  psi. 


I = 5.00  in? 


-1 


p = 0.10  lbm/in? 
g = 386.04  lbm-in/lbf-sec 
A = 1.25  in? 


6 = 38.78  sec . 

It  was  decided  to  subject  the  beam  to  two  spatially  determinant 
loading  conditions:  (a)  The  first  was 


q (x)  = q 


(5.45) 


which  when  represented  by  Fourier  sine  series  takes  on  the  form 

2q, 


q(x)  = l sin 

n=l 


mrx 


where 


n mr 

(b)  The  second  loading  condition  was  given  by 


-(1-cos  mr)  (5.46) 


q(x)  = q 


I 

n=l ,3,5 


sin 


nirx 


(5.47) 


A plot  of  Eq.  (5.43)  under  these  two  loading  conditions  is 

shown  in  Figure  25,  where  k = n =7. 

max  max 

As  a comparison,  Lee  and  Whaley  propose  a spatially 
averaged  value  of 

0 /y^.  = 1.17  tt/L  = 0.0367  in.  ^ which  is  also  shown 

X’JilS  XjTIS 

on  Figure  25. 

Now  consider  the  special  case  of  a load  condition  which 
contains  only  a single  harmonic 


q(x)  = q sin 


n 7TX 
o 


n 


(5.48) 


Eq . (5.43)  would  then  become 
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Figure  25  Plot  of  6 /y  for  Simply-Supported  and  Free- 

x Jiio  x mb 

Free  Beams  Subjected  to  Temporally  Random  Loads 
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0 


y 


(5.49) 


For  this  loading  condition,  one  sees  that  0 /y 

rms  J 


rms 


varies 


between  ±°>. 

As  one  studies  the  results  of  considering  the  previous 

loading  conditions  on  a beam  with  simple  support,  one  may 

conclude  that  any  load  which  is  symmetrically  distributed  with 

respect  to  the  center  of  the  beam  will  have  a variation  of 

0 /y  between,  at  least,  0 and  + «>.  Here  again,  the  use  of 
rms  rms 

a spatially  averaged  erms/yrJns  value  is  subject  to  question; 

but,  in  this  case  the  support  condition  of  y(o)  - y(L)  = o and 

the  spatial  symmetry  of  loading  are  the  main  source  of  the 

extreme  variance.  For  this  reason  it  was  thought  that  a beam 

in  the  free-free  vibration  condition  would  furnish  a more 

representative  variation  of  0 /y  relative  to  beam  station 

rms  rms 

in  comparison  to  aircraft  structural  components,  which  do  not 
normally  have  simple-support  conditions. 

One  may  assess  the  effects  of  support  conditions  by 
considering  the  beam  in  the  free-free  condition.  However,  since 
the  panels  or  beams  in  an  aircraft  structure  are  elastically 
supported,  a question  may  be  raised  as  to  how  applicable  such 
analytical  results  based  on  free- free  conditions  might  be 
(notwithstanding  the  whole  airplane  which  could  be  in  the  free- 
free  condition).  The  justification  for  using  free-free  condi- 
tions is  that  the  variation  in  the  r.m.s.  angular  to  r.m.s. 
linear  displacement  ratio  along  the  beam  or  over  the  plate 
surface  is  more  representative  of  actual  aircraft  structural 
components.  Even  though  there  will  be  discrepancies  at  the 
boundaries,  they  are  far  less  for  free-free  solutions  than  they 
will  be  for  solutions  based  on  simple-support  conditions. 

For  a free-free  beam  subjected  to  a concentrated  load,  P, 

at  anv  point,  x=a,  the  0 /y  ratio  is  obtained  in  Reference 
J r rms  rms 


[19]  as 


109 


(5.50) 


e 


rms  _ / nk 


K^kVV'nlc 


Vr"8  J llq^ nVnk 


where 


P aXn  a^n  aA  aA 

qn  = l1-005  "TT  + Cosl>X_  + sin— 17-  + Sinh-j-^)  ] 


*nx 

<t'n(x)  = cos  — j—  + Cosh 

A_x 


Xnx  , . xnx  xnx  , 

— + an(sin  -j—  + sinh  -£-)  ( 


V(x)  = !TC_sin  ~T~  + Sinh  ~JT  + an(cos  + Cosh 


and 


„ _ sinA_  + SinhA 

an  - n n 

cosAn  - CoshA 


n 


Ink  may  be  exPressed  in  the  form 


Xnk  = 8,6/[%2-a,k2)2  + 8 6 2 ( 2 ] 


A, 


where 


co 


n 


n 


4 m 


and  A^  represents  the  roots  of  the  frequency  equation 


1 = CoshA  cosA 
n n 


(! 


The  ratios  of  angular  r.m.s.  to  linear  r.m.s.,  Eq . (5.50) 
at  different  stations  along  the  beam,  have  been  calculated  for 
the  beam  properties  given  previously  and  are  presented  in 
Table  3 is  kmax  = nmax  = 152,3,4,  and  6.  This  ratio  is 

kmax  = nmax  aS  also  shown  on  Figure  25. 

As  one  examines  the  6rms/yrms  ratios  in  Table  3 for  the 
one- term  approximation  one  sees  that  they  get  quite  large  as 
the  node  points  for  the  first  free-free  mode  shape  are 
approached.  With  the  additional  higher  frequency  mode  shapes 
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TABLE  3 

^rms^rms  FREE- FREE  BEAM  SUBJECT  TO  CONCENTRATED  LOAD 

(a/L  = 0.4) 


x/L 

6rms/yms 

6rms  /ynas 

®rms/ynas 

8rms /yrms 

8rms /yrms 

IWk-x*1 

n**x,kM*«2 

n«*x*kmxx*  3 

nMX*kUI 

0 

0.0465 

0.0507 

0.0518 

0.0550 

0.0563 

0.10 

0.0851 

0.0961 

0.0981 

0.1014 

0.1014 

0.15 

0.1415 

0.1568 

0.1562 

0.1504 

0.1506 

0.16 

0.1630 

0.1766 

0.1741 

0.1645 

0.1655 

0.17 

0.1922 

0.1999 

0.1942 

0.1799 

0.1820 

0.18 

0.2345 

0.2258 

0.2152 

0.1961 

0.1993 

0.19 

0.3013 

0.2514 

0.2342 

0.2111 

0.2153 

0.20 

0.4230 

0.2697 

0.2461 

0.2222 

0.2267 

0.21 

0.7159 

0.2725 

0.2460 

0.2262 

0.2299 

0.22 

2.4141 

0.2572 

0.2332 

0.2215 

0.2235 

0.23 

1.7015 

0.2304 

0.2121 

0.2090 

0.2091 

0.24 

0.6199 

0.2007 

0.1833 

0.1919 

0.1906 

0.25 

0.3750 

0.1733 

0.1655 

0.1732 

0.1712 

0.30 

0.1166 

0.0898 

0.0913 

0.0992 

0.0998 

0.35 

0.0603 

0.0551 

0.0583 

0.0595 

0.0627 

0.40 

0.0332 

0.0389 

0.0414 

0.0409 

0.0416 

0.45 

0.0151 

0.0317 

0.0325 

0.0374 

0.0383 

0.50 

0.0000 

0.0299 

0.0296 

0.0385 

0.0414 

0.55 

0.0151 

0.0321 

0.0329 

0.0379 

0.0387 

0.60 

0.0332 

0.0394 

0.0421 

0.0415 

0.0423 

0.65 

0.0603 

0.0558 

0.0591 

0.0602 

0.0634 

0.70 

0.1166 

0.0906 

0.0921 

0.0999 

0.1005 

0.75 

0.3749 

0.1739 

0.1654 

0.1734 

0.1712 

0.76 

0.6197 

0.2009 

0.1876 

0.1913 

0.1901 

0.77 

1.6999 

0.2297 

0.2105 

0.2077 

0. 2079 

0.78 

2.4173 

0.2551 

0.2305 

0.2193 

0.2213 

0.79 

0.7161 

0.2689 

0.2422 

0.2234 

0.2271 

0.80 

0.4231 

0.2654 

0.2418 

0.2191 

0.2235 

0.81 

0.3014 

0.2472 

0.2302 

0.2081 

0.2123 

0.82 

0.2346 

0.2223 

0.2418 

0.1934 

0.1967 

0.83 

0.1922 

0.1971 

0.1915 

0.1778 

0.1799 

0.84 

0.1630 

0.1745 

0.1721 

0.1628 

0.1638 

0.85 

0.1415 

0.1552 

0.1547 

0.1491 

0.1493 

0.90 

0.0851 

0.0956 

0.0976 

0.1010 

0.1010 

1.00 

0.046S 

0.0506 

0.0518 

0 . 0550 

0.0564 
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considered,  the  extreme  variation  in  B /y  as  a function 

rms  rms 

of  x/L  is  attenuated,  but  the  fundamental  mode  shape  still 
retains  a significant  influence  on  the  shape  of  the  curve. 
Nevertheless,  the  variation  between  the  maximum  and  minimum 
values  of  0 /y  along  the  beam  length  is  finite  but  of 
sufficient  magnitude  to  imply  that  a spatially  averaged  value 
could  have  significant  error. 
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5.3  NASTRAN  ANALYSIS  OF  STIFFENED  CURVED  PANEL  SUBJECTED  TO 


TEMPORALLY  RANDOM  CONCENTRATED  LOAD 

In  order  to  assess  the  linear- to-angular  relationship  in 
a structural  component  of  a somewhat  more  complex  geometry,  it 
was  decided  to  analyze  a stiffened  curved  panel.  A NASTRAN 
finite  element  model  of  the  curved  panel  was  developed  and  is 
shown  in  Figure  26.  The  model  consists  of  726  degrees  of 
freedom,  100  quadrilateral  bending  elements,  and  30  beam 
elements.  This  panel  was  assumed  to  be  in  the  free-free  condi- 
tion with  the  random  concentrated  load  applied  at  grid  point 
station  406.  The  response  of  the  curved  panel  was  evaluated 
for  a 20-2560  Hz.  band  width  and  for  the  seven  octaves  in 
between  as  follows: 


(a) 

20  - 

40 

Hz 

(b) 

40  - 

80 

Hz 

(c ) 

80  - 

160 

Hz 

(d) 

160  - 

320 

Hz 

(e) 

320  - 

640 

Hz 

(f) 

640  - 

1280 

Hz 

(g> 

1280  - 

2560 

Hz 

The  output  of  the  NASTRAN  analysis  included  the  following 
quantities : 

(a)  w - temporal  average  of  displacement  normal 

rrms 

to  plate 

(b)  00rms  “ temporal  average  of  angular  displacement 

about  0-axis 

(c)  6zrms  ~ temporal  average  of  angular  displacement 

about  z-axis 

at  each  of  the  following  sets  of  grid  points: 


(a) 

106, 

206, 

306, 

...  1106 

(b) 

401, 

402, 

403  , 

...  411 

(c) 

104  , 

204, 

304, 

...  1104 
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Figure  26  NASTRAN  Model  of  Stiffened  Curved  Panel 


Figure  27  shows  the  ratio  of  RMS  total  resultant  angular 
displacement  to  RMS  linear  displacement  vs . grid  point  station 
for  20-2560  Hz.  frequency  band  for  the  bare  curved  panel.  In 
this  figure  the  straight  lines  plotted  are  the  spatial  average 
as  represented  by  the  quantity 
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for  Stations  106  to  1106 

(5.58) 


where 

u)^  = 2 0 Hz 

w2  = 2560  Hz  (5.59) 


and 

T 

w 


do) 


SD  da) 

6 z 

(5.60) 


This  particular  method  of  averaging  corresponds  to  that  of  Lee 
and  Whaley  in  their  aforementioned  report. 

Figure  28  presents  the  ratio  of  RMS  angular  displacement 
component  to  spatially  averaged  RMS  linear  displacement  vs. 
grid  point  station  for  20-2560  Hz.  for  the  curved  panel.  The 
straight  lines  plotted  are  the  spatial  averages  as  given  y 
the  expressions 


®0rms 

w 

rrms 


avg 

avg 


i 

Sw  d(1) 
0)^  r 


(5.61) 


115 


rms  rms 


Figure  27  Ratio  of  RMS  Resultant  Angular  Displacement  to 
RMS  Linear  Displacement  vs.  Grid  Point  Station 
for  Curved  Plate  with  Stiffeners,  20-2560  Hz. 
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rms  rms 


Grid  Point  Station 


Figure  28  Ratio  of  RMS  Angular  Displacement  to  Spatially 
Average  RMS  Linear  Displacement  vs . Grid  Point 
Station  for  Curved  Plate  with  Stiffeners, 
20-2560  Hz. 
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for  stations  106  to  1106.  The  variable  quantity  is  actually 
the  angular  displacement  component  at  each  station  except  that 
it  has  been  normalized  by  the  spatial  average  of  the  linear 
displacement  in  accordance  with  the  ratios 


6 


Qrms 


6 

zrms 


1106 


I 

106 


(5.63) 


The  subsequent  plots.  Figures  29  through  36,  present 

the  angular- displacement- component- to- linear- displacement  ratios 

of  0Q  /w  and  0 /w  as  a function  of  grid  point 

0rms  rrms  zrms  rrms  6 y 

stations  106  through  1106  for  the  frequency  band  width  of 

20-2560  Hz.  and  the  seven  octaves  in  between.  In  each  of  these 

plots,  the  straight  lines  represent  the  spatial  average  of  the 

RMS  angular  component  divided  by  the  spatial  average  of  the  RMS 

linear  displacement.  For  the  20-2560  Hz.  case,  there  are  two 

additional  lines  plotted  which  represent  the  spatial  average 

of  all  grid  points  considered  in  this  study  on  the  curved  panel. 

An  examination  of  the  plots  for  the  20-2560  Hz.  band 

widths  (Figures  27  through  29)  reveal  a somewhat  mild  spatial 

variation  in  the  linear-to-angular  relationships  for  the 

stiffened  curved  panel  subjected  to  the  temporally  random 

concentrated  load.  However,  as  one  studies  the  response  of  the 

panel  to  the  narrow  band  octaves,  e.g.  Figure  30,  the  maximum 

value  for  the  r.m.s.  angular- to-r.m.s . linear  displacement  ratio 

(0  /w  _)  was  almost  100  times  greater  than  the  minimum 

zrms  rrms 

value.  Thus,  for  narrow  band  random  excitation,  the  results 
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definitely  preclude  the  use  of  a spatial  average  as  a represen- 
tative value  for  the  stiffened  curved  panel  subjected  to  the 
aforementioned  loading  condition. 

Additional  plots  for  stations  401  through  411  and  104 
through  1104  may  be  found  in  Reference  [24].  Also,  a study 
where  mass  was  added  to  the  panel  was  reported  in  this  reference. 
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Figure  29  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  20-2560  Hz. 
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Grid  Point  Station 


Figure  30  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs . Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  20-40  Hz. 
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Grid  Point  Station 


Figure  31  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  40-80  Hz. 
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Figure  32  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  80-160  Hz. 
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rms  rms 


Grid  Point  Station 


Figure  33  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  160-320  Hz. 
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Grid  Point  Station 


Figure  34  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  320-640  Hz. 
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Figure  35  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  640-1280  Hz. 


126 


rms  rms 


Figure  36  Ratio  of  RMS  Angular  Displacement  to  RMS  Linear 
Displacement  vs.  Grid  Point  Station  for  Curved 
Plate  with  Stiffeners,  1280-2560  Hz. 
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5.4  VARIATION  OF  ANGULAR  TO  LINEAR  DISPLACEMENT  RATIOS  IN 

STRUCTURAL  COMPONENTS 

As  one  studies  the  results  of  the  analytical  investigation 
for  random  vibrations  of  a rigid  bar  on  springs,  a simple- 
supported  beam  and  a free-free  beam,  the  conclusion  would  be 
made  that  the  spatial  variance  of  the  r.m.s.  angular-to-r . m. s . 
linear  displacement  ratio  is  significant  enough  to  warrant  not 
using  a spatial  average  for  these  structures  if  great  accuracy 
is  desired.  If  large  errors  (for  the  free-free  beam  this  would 
be  a factor  of  7 between  the  maximum  r.m.s.  amplitude  occurring 
and  Lee  S Whaley's  proposed  spatial  average)  can  be  tolerated, 
then  a single  spatial  average  for  the  structure  is  convenient 
to  use;  but,  it  seems  the  behavior  of  the  structure  ought  to 
be  understood  in  some  detail  so  that  the  applicability  of  the 
spatial  average  is  assessed.  In  the  panel  example,  the  ratio 
was  formed  by  actually  computing  (via  a finite  element  model 
for  a specific  random  load  case)  both  r.m.s.  angular  and  linear 
responses  at  many  points.  The  conclusion  which  may  be  drawn 
from  the  example  is  that  even  if  one  has  knowledge  of  the  ratio 
of  averages,  that  quantity  is  not  a particularly  good  estimation 
of  the  ratio  at  a given  point  as  indicated  by  those  plots 
encompassing  octave  bands . The  spatial  average  might  be 
considered  an  acceptable  quantity  when  considering  the 
20-2560  Hz.  case,  but  it  is  felt  that  the  response  of  different 
structures  under  random  loading  should  be  investigated  before 
a definite  conclusion  is  drawn.  The  examples  investigated  in 
the  previous  paragraphs  also  show  cases  when  the  ratio  is  quite 
sensitive  to  structural  parameters,  load  distribution,  and  the 
frequency  bands. 

One  means  of  eliminating  the  effects  of  end  conditions  is 
by  simply  considering  an  infinitely  long  beam.  For  this  case 
^ traveling  wave  solution  may  be  written.  For  sinusoidal 
excitation  at  a single  point 

y = Aei(kX'Wt)  (5.64) 
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where  the  wave  number  k is  related  to  frequency  by  the  usual 
dispersion  relation  for  one-dimensional  bending  waves: 

2 4 2 2 

(2irf)  = k k cz  (5.65) 

In  this  expression,  k is  the  radius  of  gyration  and  is  the 

extensional  wave  speed.  From  (5.64),  one  may  compute  0 = ^ 

_ ...  i(kx-wt)  .,  , r 

0 = lkAe  = iky  (5.66) 

The  factor  i simply  comes  from  using  complex  arithmetic  to  keep 
track  of  phase  in  time  and  space.  It  will  drop  out  when 
temporal  averaging  is  performed  to  obtain  r.m.s.  values. 


0 

rms 

-^rms 


/ 2 7T  f 


(5.67) 


For  random  steady  state  excitation  at  a point  we  note  that,  by 
linearity,  the  portion  of  response  in  a frequency  band  Af  is 
due  only  to  the  excitation  in  that  band  so  we  may  write 


Vf) 

s^fT 


2nf 

<c„ 


(5.68) 


This  ratio  does  not  vary  in  space  and  requires  only  intensive 
beam  parameters  k and  c^  rather  than  a global  length  L.  It  can 
be  expected  to  hold  for  beams  of  finite  length  at  frequencies 
sufficiently  high  that  L>>A. 

The  infinite  beam  may  be  thought  of  as  having  an  infinite 
number  of  natural  frequencies  which  are  spaced  infinitesimally 
close  together.  Since  for  this  case,  an  exact  relation  exists 
between  S^(f)  and  SQ(f),  one  might  expect  that  a long  beam  with 
a large  but  finite  modal  density  might  show  approximately  this 
ratio.  It  is  shown  in  Section  IV  that,  for  a plate  with  high 
modal  density,  one  may  indeed  exploit  this  idea  to  estimate 
angular  response  from  component  energy  expressed  as  a mass- 
weighted  mean  square  translational  velocity. 
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SECTION  VI 

ANGULAR  VIBRATION  MEASUREMENT 


The  major  objective  of  the  contract  effort  was  the 
development  of  methods  for  prediction  of  angular  vibration. 
However,  it  was  known  from  the  beginning  that  some  attention 
would  have  to  be  given  to  purely  measurement  problems.  This 
view  was  motivated  by  two  factors: 

(1)  The  scarcity  of  experimental  data  suitable  for  testing 
of  analytical  methods  meant  that  Anamet  had  to  be 
capable  of  performing  its  own  verification  tests. 

This  capability  had  to  be  ready  when  analytical  work 
reached  the  testing  stage  in  order  to  produce  a 
reliabl-e  and  timely  product. 

(2)  Modern  methods  of  structural  response  prediction, 
angular  or  otherwise,  often  depend  on  models  built 
entirely  or  in  part  from  measured  data.  Two  examples 
are  experimental  modal  analysis  and  statistical  energy 
analysis  where  component  SEA  parameters  are  obtained 
by  measurement. 

The  measurement  of  dynamic  rotations  at  specific  points 
on  an  elastic  structure  is  not  new  although  concern  about 
angular  displacements  at  the  microradian  level  seems  to  be 
confined  to  optical  system  applications.  Historically,  three 
basic  methods  of  measurement  have  been  used. 

(1)  Outputs  of  translational  motion  sensors  mounted  a 
known  distance  apart  may  be  differenced. 

(2)  A light  beam  may  be  reflected  off  the  point  in 
question  and  its  lateral  displacement  measured. 

(3)  Inertia  torque  on  a suspended  seismic  mass  may  be 
sensed. 

The  most  critical  angular  measurements  on  airborne  optical 
or  laser  systems  are  generally  those  where  motion  of  a reflect- 
ing surface  is  transduced.  Typical  requirements  in  this  case 
may  include: 
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(1)  Bandwidth.  As  usual  in  structural  dynamics,  the 
frequency  composition  of  unwanted  motion  often  con- 
tains information  which  is  highly  useful  to  the 
designer  attempting  to  reduce  such  motion.  Frequency 
components  in  the  0.1  to  1.0  kHz  range  may  be  partic- 
ularly important  since,  in  general,  they  cannot  be 
effectively  removed  by  active  servo  systems. 

(2)  Size  and  Weight.  Mirror  assemblies  as  small  as  0.1  m 
(4  in.)  and  weighing  less  than  1 kg  (2.2  lb.)  must 

be  instrumented.  Transducers  must  neither  change  the 
dynamic  properties  of  the  assembly  nor  interfere  with 
the  intended  optical  function. 

(3)  Flexibility  of  use.  During  development  of  component 
assemblies,  sensors  must  be  installed  and  removed 
quickly  and  easily  without  the  requirement  of  elabo- 
rate fixturing.  This  tends  to  favor  inertially- 
referenced  methods  over  optical  sensing.  Furthermore, 
the  sensing  of  displacement  by  optical  systems  rather 
than  velocity  or  acceleration  may  make  high  frequency 
measurements  difficult. 

(4)  Cost.  As  usual,  the  use  of  standard  devices  made  in 
production  quantities  and  usable  for  other  purposes 
is  desirable. 

It  quickly  became  clear  that  differencing  of  translational 
acceleration  signals  was  the  most  appropriate  method  for  the 
present  effort.  Other  investigators  [25,  26]  have  used  the 
method  and  have  concluded  that  it  is  quite  practical.  However, 
it  appeared  that  a better  quantitative  understanding  of  limi- 
tations and  error  sources  was  desirable.  The  work  described 
in  this  chapter  was  intended  to  develop  that  understanding. 

Theoretical  derivations  are  presented  for  estimating  errors 
introduced  by  noise  in  individual  channels,  frequency  dependent 
gain  and  phase  mismatching  between  channels,  and  flexure  of  the 
mounting  surface.  Effects  of  the  first  two  error  sources  are 
demonstrated  by  experiment  and  it  is  demonstrated  that  mismatch 
error  can  be  reduced  by  appropriate  data  processing.  Finally, 
an  expression  is  derived  for  coherence  of  a measured  angular 
frequency  response  when  angular  response  is  obtained  by 
differencing. 
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6.1  THEORETICAL  ERROR  ANALYSIS 

Figure  37  shows  a typical  arrangement  for  measuring 
dynamic  rotation.  The  linear  sensors  must  often  be  spaced  quite 
closely,  either  to  obtain  a good  discrete  approximation  to  the 
angle  of  rotation  at  a point,  or  simply  due  to  space  constraints. 
The  difference  signal  may  be  much  smaller  than  either  of  the 
individual  signals.  The  question  then  arises,  "How  'good'  must 
the  individual  linear  sensing  channels  be  in  order  that  their 
difference  can  provide  a meaningful  estimate  of  angular  motion?" 

In  attempting  to  understand  the  dynamic  behavior  of  a 
structure,  spectral  measurements  obtained  through  discrete 
Fourier  transforms  are  often  used.  The  two  most  common  types 
of  frequency  domain  data  are  the  power  spectral  densities  of 
response  variables  and  complex  frequency  response  functions 
measured  for  spatially  fixed  excitations . The  intent  of  this 
section  is  to  present  some  quantitative  methods  for  estimating 
the  reliability  of  these  two  data  types  for  the  case  where  the 
response  quantity  is  an  angular  motion  obtained  by  differencing 
of  signals  from  translational  motion  sensors. 

The  figures  of  merit  used  are  narrow  band  signal  power/ 
noise  power  for  PSD  estimates  and  the  ordinary  coherence  func- 
tion for  frequency  response  estimates.  Both  are  derived  for 
the  special  case  of  differential  sensing  in  terms  of  the 
corresponding  quantities  for  the  individual  channels. 

6.1.1  Narrow-Band  Signal-to-Noise  Ratio 

In  Figure  37  two  single  axis  translation  accelerometers 
are  mounted  a distance  Ax  apart  and  their  output  signals  are 
conditioned  and  subtracted.  The  pair  then  form  a differential 
acceleration  sensing  system.  Each  leg  is  assumed  to  be  a linear, 
time-invariant  system  with  impulse  response  h^(r)  and  frequency 
response  H^(f).  In  general,  H^(f)  and  H^Cf)  will  be  slightly 
different  and  will  both  show  a weak  dependence  on  frequency  in 
the  range  of  interest.  Noise  in  each  channel  is  simulated  by 
n^(t)  and  n^(t)  as  shown.  Noise  sources  are  assumed  to  be 
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Figure  37  Measurement  of  Angular  Acceleration  by 
Differencing 
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correlated  neither  with  the  measurands  and  nor  with  each 
other. 

One  component  of  the  angular  acceleration  at  the  point 
midway  between  the  transducers  can  be  estimated  as 

0 ( t ) = eQ/cAx  (6.1) 


where  c is  constant  and  equal  to  some  nominal  value  of  | H-^  | or 

| H2 | - If  0(t)  is  the  true  value  of  angular  acceleration,  the 

estimate  0(t)  which  one  obtains  from  e^Ct)  will  deviate  from 

0 ( t ) due  to  imperfections  introduced  by  noise  sources  n^  and  n^ 

as  well  as  differences  between  c and  and  H2  . We 

actual  actual 

therefore  define  an  ideal  transducing  system  which  has  n^  = n?  = 0 

and  H,  = H?  = c where  c is  close  to  H,  and  H„ 

xideal  ^ideal  actual  actual. 

This  definition  will  allow  calculation  of  a figure  of  merit  for  the 

actual  system. 

The  figure  of  merit  will  be  called  narrow-band  signal-to-noise 
ratio  and  is  a function  of  frequency  defined  as 


SNR(f 'dB 


Sg  (f) 

10  log  Co — * TTT^ 

b(eA-ei) 


(6.2) 


where 


SNR(f } 


e j ( t ) 


s*  (f) 


narrow-band  signal-to-noise  ratio 

estimate  of  0(t)  which  would  be  obtained  with 

an  ideal  system 

power  spectral  density  of  0^ 


0 (t)  = estimate  of  0(t)  obtained  with  the  actual  system 

xi 

A rt 

S/2  2 \(f)  = power  spectral  density  of  0.  - 0T 


n A 

The  quantity  0^  - 0-j-  is  a residual  random  variable  similar 
to  those  used  to  define  partial  and  multiple  coherence  functions 
(Reference  [27]). 
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It  should  be  clear  that  will  be  degraded  only  by  mis- 

matching between  H1  and  H2»  If  they  are  perfectly  matched  and 
both  equal  to  c,  a small  shift  in  c will  have  no  effect.  Thus, 
there  is  no  loss  of  generality  in  allowing  c to  be  a complex 
function  of  frequency  although  Eq . (6.1)  should  properly  be 
written  in  terms  of  Fourier  transforms. 

In  all  of  the  following,  the  power  spectral  density  of 
a time  history  will  be  represented  simply  by  the  ensemble 
averaged  value  of  the  squared  magnitude  of  its  Fourier  trans- 
form. This  ignores  a number  of  important  mathematical  details  [28] 
but  is  appropriate  since  virtually  all  applied  work  will  be 
carried  out  using  digital  FFT  methods.  The  normalizing  factor 
which  is  needed  to  compensate  for  finite  record  length  when  using 
a discrete  Fourier  transform  is  also  omitted.  This  simplifies 
the  algebra  and  is  allowable  since  the  final  results  are  arranged 
in  dimensionless  form  where  this  factor  would  cancel  out. 

If  the  impulse  response  of  each  leg  of  the  ideal  system  is 
h( t ) , then 

h(x)  = v/-1(c(f))  (6.3) 

and 

e^(t)  = h.(t)*y^(t)  , i = 1,2  (6.4) 

where  * is  the  convolution  operator  and  J?  ( ) is  the  inverse 
Fourier  transform  operator.  Taking  the  Fourier  transform  of  Eq . (6.4) 

E£(f)  = — ( 2 tt  f ) 2 c(f)  Yi(f),  i = 1,2  (6.5) 

where 

E±(f)  =/[(ei(t)] 

Yi(f)  =^[yi(t)] 

From  Figure  37 , for  either  the  actual  or  ideal  system 

(Ax)  6 ( t ) = y2  ” Yi  (6.6) 

or 

(Ax)  0(f)  = Y2(f)  - Y1(f)  (6.7) 
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For  the  ideal  system,  Eqs.  (6.5)  and  (6.7)  may  be  combined 


2 ^ ^2  ~ ^1 
-(2”f>  ®i  = 


where 


eT  =^teT] 


Forming  the  conjugate  square  of  Eq.  (6.8) 

2 , _ |E2!2  + lEi 1 2 - 2Re[E1*E2] 


| — 4 TT  f ^ 0 | 


| c |2(Ax)2 


where 

* = complex  conjugate 


Ensemble  averaging  Eq.  (6.8) 
for  power  spectral  density 


and  using  the  derivative  relat 


Sa(f)  = ( 2nf ) 4 Su(f) 


gives 


S A 

be. 


; + S - 2Re[ S 

e2  el 


ele2 


| c | (Ax) 


An  expression  for  S 
the  actual  system 


A 


£ x is  obtained  in  a similar  way. 

V 


ei  = h^  * (y^  + ni)  , i = 1,2 

Transforming  Eq.  (6.12) 

E±  = Hi[-(2nf)2  Yi  + Ni]  , i = 1,2 

Combining  Eqs.  (6.7)  and  (6.13) 

E E 

-(2”f>24x  §A  = [Hf  - N2]  ' [H7  - Nl] 


(6.8) 

(6.9) 

ion 

(6.10) 

(6.11) 

For 

(6.12) 

(6.13) 

(6.14) 
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By  linearity  of  the  Fourier  transform 


/<eA  - v = §A  - 8j 


(6.15) 


From  Eqs.  (6.8)  and  (6.14) 


- ( 2irf ) 2 Ax(0a  - Gj)  = E2[^ 1]  - E1[j^-  - -±-]  + Nx  (6.16) 


Now  define  complex  functions  of  frequency  C^f)  and  C2(f)  where 

(6.17) 


Ci(f)  ^ ( 1 


HTTfT  - cTTT5  1 = 1»2 


Substituting  Eq.  (6.17)  into  (6.16)  and  taking  the  conjugate 
square  of  both  sides 


(2iTf)4  (Ax)2  |§A  - 0T|2 


+ |N2 | 2 + |N1| 


E-  E0  E0N0  * E0N, * En  E0*  E, N * E,  N,  5 

r 1 1 * _£.  _ 1 t + - ± - 1 t + 1 t _ 1 1 

V c2  c2  C2  C1  c2  C1  C1 


N2E2*  N2E1* 


N E * N E * 

~ N1*N2  + " N1N2*  <8.18) 


After  ensemble  averaging,  dropping  uncorrelated  products,  and 

using  the  derivative  relations  for  power  spectra 

S 


So  So 

e,  e 


( Ax) 2S  A * - 1 * 


(eA  - 6I>  ICJ'  |Cj| 


2+,rt2-  2Re  [-crc!3  + 2 s„ 


'12 


(6.19) 


Combining  Eqs.  (6.2),  (6.11),  and  (6.19) 

S + S - 2Re[S  ] 
1 2 ele2 


NR ' Mi  s t m! 

Icj2  el  |C2|2  ” e2 


(6.20-) 


K - 2|c|2Re[c!^2]  + 2|c|2Sn 
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Equation  (6.20)  is  the  desired  quantity  but  it  can  be 
simplified  considerably.  Let  the  frequency  response  of  each 
leg  of  the  ideal  system  be  chosen  as  the  average  of  the  two 
legs  of  the  actual  system. 


H, (f)  + H,(f) 
c(f)  = — x 


(6.21) 


Also  define  the  average  of  the  single  channel  power  spectra  as 
S—  where 

e o j.  c 


Finally,  let  the  channel  mismatch  be  specified  in  terms  of  a 
single  complex  function  of  frequency  6(f)  where 

H0(f) 

6<f)  = H^TfT  - 1 (6'23) 

From  Eqs . (6.17),  (6.21),  and  (6.23) 

c 6 


JL=_|[l_6+62-...]  (6.24) 

C2 


where  the  expansion  for  c/C2  can  be  shown  to  converge  for  6 
anywhere  inside  the  circle  |6|=  1.  Using  Eq.  (6.22)  and  Eq.  (6.24) 
to  simplify  Eq.  (6.20)  gives,  after  dropping  third  and  higher 
order  terms  in  6 


NR 


[ | 6 | 2 ( 1 + 


Re(Seie> 

4C1 5=^3 

e 

Re ( S o ) 27" 

1 2_)  + .|l<=l  " 


(6.25) 


S- 

e 


S- 

e 


] 
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The  quantity  Re(S  )/S—  is  a dimensionless  function  which 

12 

indicates  the  amount  of  angular  acceleration  which  may  be 
measured  by  finite  spatial  differencing  at  a given  frequency. 

It  occurs  in  other  developments  and  will  be  called  the  spectral 
discrete  difference  and  given  the  symbol  a. 

a (f)  £ RetS  Cf)]/S-  (f)  (6.26) 

ele2  e 

Combining  Eqs.  (6.25)  and  (6.26) 


S 


NR 


4 (1  - a) 


[|6|%1  + 0 + 4 


(6.27) 


This  is  then  the  final  result.  The  narrow-band  discrete 
angle  signal -to-noise  ratio  is  expressed  in  terms  of  a cor- 
responding single  channel  quantity  S— / | c | 2 , the  complex 
channel  mismatch  parameter  6,  and  a new  quantity  called  the 
spectral  discrete  difference.  All  variables  in  Eq . (6.27)  are 
functions  of  frequency. 

A simple  interpretation  of  the  quantity  a(f)  may  be 
obtained  from  the  following  identity.  For  any  two  stationary 
random  signals  e^  and  e^ 

S(el_e2) 

^ “ a(f)  - g + s (6.28) 

el  e2 

The  quantity  1 - a is  thus  simply  the  nondimensional  size  of 
the  PSD  of  a difference.  In  the  present  case  1 - a will  tend 
to  zero  as  either  Ax  or  the  true  angle  go  to  zero.  As  1 - a 
goes  to  zero  we  may  expect  poor  accuracy  in  our  estimate  of 


If  the  numerator  and  denominator  in  Eq . (6.27)  are  thought  of 
as  dimensionless  signal  power  and  dimensionless  noise  power,  then 
the  noise  power  can  be  divided.  It  is  composed  of  a signal- 
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correlated  noise  term 


(1  + a)  induced  by  mismatching  of 


channel  gain  and  phase  characteristics  and  an  uncorrelated  noise 
2 

term  c S /S—  which  depends  only  on  single  channel  noise 
n e 

performance . 

Some  numerical  examples  are  useful  to  compare  the 
degradation  caused  by  incoherent  single  channel  noise,  gain 
mismatching  between  channels,  and  phase  mismatching.  Suppose 
one  is  attempting  to  measure  Sg(f)  at  a frequency  where  single 
channel  S/N  is  quite  good,  say  60  dB.  Then 


cl2  S 


n 


S- 

e 


10'60/1°  = 10-6 


Suppose  further  that  a = 0.98.  It  is  shown  later  that  values 
closer  to  unity  (i.e.  worse)  than  this  can  be  expected  to 
occur  routinely  in  practice.  Now  consider  four  situations 
regarding  channel  mismatch. 

1)  Perfect  matching.  Differential  narrow-band  S/N  is 


SNR|dB  = 10  108  C 


4(1-. 98) 
-6 


] = 43.0  dB 


4 x 10 

(17.0  dB  worse  than  single  channel) 


2)  Perfect  phase  matching  but  1.5%  gain  mismatch.  In 
this  case 


H2 

XT  = 1‘01b  + i0>  6 = 

H1 

| 6 | = 0.015 


Hi., 


= 0.015  + iO 


’NR 


dB 


= 10  log  [ 


4(1-. 98) 


. 0152 (1+ . 98 ) + 4 x 10  6 


= 22.5  dB  (37.5  dB  worse  them  single  channel) 
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3)  Perfect  gain  matching  but  2°  of  phase  error. 


tj—  = 1 Z.  2°  = . 9994  + i . 0349 
H1 

6 = -.0006  + i .0349  = .0349  L 91.0° 


NR  dB 


10  log  [ 


4(1-. 98) 


. 03492 (1+ . 98 ) + 4 x 10  6 


= 15.2  dB  (44.8  dB  worse  than  single  channel) 

4)  Phase  mismatch  of  2°  and  gain  mismatch  of  1.5%. 


H2 

tA-  = 1.015  L 2°  = 1.0144  + i . 0354 
H1 

6 = .0144  + i .0354  = .0382  A67° 


SNR  | dB  = 10  log 


4(1-. 98) 


03822 (1+ . 98 ) + 4 x 10  6 


= 14.4  dB  (45.6  dB  worse  than  single  channel) 

The  latter  values  for  noise  and  mismatch  parameters  are 
probably  typical  for  a differential  sensing  system  where  each 
leg  consists  of  a piezoelectric  accelerometer,  charge  converter, 
voltage  amplifier,  anti-aliasing  filter,  and  A/D  converter. 

If,  in  addition,  individual  channels  are  passed  through  analog 
tape,  the  situation  could  be  considerably  worse. 

Eq.  (6.27)  has  been  used  to  compute  a set  of  plots  which 
may  be  used  for  quick  reference  in  setting  up  an  experiment 
where  the  PSD  of  a difference  quantity  is  to  be  measured.  These 
are  displayed  as  Figures  38  through  41. 
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Figure  38  Narrow-Band  Signal-to-Noise  Ratio  of  Angular 

Acceleration  Estimate  Obtained  by  Differencing 
of  Linear  Accelerations 
| 6 | = 0.000 
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Figure  39  Narrow-Band  Signal-to-Noise  Ratio  of  Angular 

Acceleration  Estimate  Obtained  by  Differencing 
of  Linear  Accelerations 
| 6 | = 0.005 
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Figure  40  Narrow-Band  Signal-to-Noise  Ratio  of  Angular 

Acceleration  Estimate  Obtained  by  Differencing 
of  Linear  Accelerations 
| 6 | = 0.01 
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Figure  41  Narrow-Band  Signal-to-Noise  Ratio  of  Angular 

Acceleration  Estimate  Obtained  by  Differencing 
of  Linear  Accelerations 
1 6 | = 0.015 
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The  transducer  separation  distance  Ax  does  not  appear 
explicity  in  Eq.  (6.27).  Its  effect  is  included  in  the  spectral 
discrete  difference  a.  As  Ax  is  increased,  a difference  appears 
between  e^  and  e ^ which  causes  a to  drop  below  unity.  It  is 
shown  in  a later  paragraph  that  a may  be  very  close  to  unity 
for  practical  cases.  It  should  be  noted  that  while  a(f)  is  a 
useful  concept  for  quantifying  errors,  its  measurements  is  not 
necessarily  straightforward.  Experiments  have  indicated  that 
accurate  determination  of  a(f)  is  at  least  as  difficult  as  the 
measurement  of  Sg(f)  itself. 

One  additional  plot  is  provided  as  Figure  42  to  aid  in 
estimating  narrowband  signal-to-noise  ratio  at  a given  fre- 
quency. It  is  intended  for  use  with  piezoelectric  accelero- 
meters where  essentially  all  of  the  incoherent  noise  power 
is  below  100  Hz  and  a high  pass  filter  is  incorporated  to 
suppress  very  low  frequency  noise  below  about  1 Hz . A typical 
noise  power  spectrum  for  this  type  of  instrument  is  of  the 
form 


Sn(f)  = A f-“  (6.29) 

2 

If  the  total  noise  power  cr  between  f . = 1 Hz  and  f = 100  Hz 

n mm  max 

is  known,  the  quantity  A in  Eq.  (6.29)  can  be  obtained  in  terms 
2 

of  a and  m from 


n 


o 


2 

n 


rf 

max 

S (f)  df 
n 

f . 
mm 


From  Eqs . (6.29) 


A 


(1  - 


(f 


1-m 

max 


and  ( 6 . 30 ) 

V 2 

m)  on 


1-m 

min 


) 


(6.30) 


(6.31) 


Measurements  of  noise  spectra  for  a variety  of  piezo- 
electric transducers  have  indicated  that  m = 1.32  is  a repre- 
sentative value.  This  was  used  in  the  calculation  of 
Figure  42. 
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rnr  ) ?i/':  pw«*M-«o.i  ipji 


Figure  4 2 Typical  Narrow- Band  Signal-to-Noise  for 

Piezoelectric  Accelerometers 
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For  an  infinite  plate,  the  mechanical  impedance  (ratio  of 
input  force  to  response  velocity  at  a given  frequency)  can  be 
shown  to  be  independent  of  frequency  [ 2 1 U - Thus,  for  a struc- 
ture built  up  of  plate  elements,  it  is  reasonable  to  expect  the 

envelope  of  the  PSD  acceleration  response  under  random  excita- 

2 

tion  to  increase  with  frequency  as  w once  the  region  of 
reasonably  high  modal  density  has  been  reached.  The  signal 
power  spectrum  will  therefore  be  approximated  as 


S 

e 


, i = 1,2 


(6.32) 


2 

with  k = 2.  Then  if  is  the  total  signal  power  in  the  band 

of  interest,  B can  be  found  from 
f 

2 r max 

ae;L  = Bfk  (6.33) 

^min 


or 


B 


(k  + 1)  o‘ 


( f 


k+1 

'max 


- f 


k + 1. 


mm 


(6.34) 


In  the  current  case  f . ~ 1 Hz  and  f 

min  jiictx 

negligible  error 


(k  + 1)  o 


B = 


e . 

l 


max 


100  Hz,  so  with 


(6.35) 


In  addition,  the  use  to  which 


require  extreme  accuracy  so  A 

2 


(m  - 1)  o 


A = 


n 


. 1-m 
min 


2 

c S /S  will  be  put  does  not 
n e . 

l 

will  be  approximated  as 


(6.36) 
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Combining  Eqs.  (6.29),  (6.31) 

4s-  * (Sli)  (fsiH)  (tJ_) 

A 0 m—  JL  x x • 

c S max  min 


5 

m 


(6.32),  and  (6.34) 


max 


k 


c o 


) 


(6.37) 


n n 

2 2 2- 

The  quantity  a^/c  is  the  single  channel  broadband  signal-to- 
noise  ratio  which  may  be  quickly  measured  or  estimated  from 
experience  in  setting  up  an  experiment.  Eq . (6.37)  simply 
quantifies  the  effect  of  the  noise  power  spectrum  being  shaded 
towards  low  frequencies  and  the  signal  power  spectrum  towards 
high  frequencies.  From  Figure  42  it  may  be  observed  that,  for 
the  values  of  m,  k,  f . , and  f used,  the  narrowband  signal- 

to-noise  ratio  is  worse  than  the  broadband  below  about  34  Hz. 

At  5 Hz,  which  is  still  high  enough  to  be  important  for  airborne 
optical  system  applications,  the  narrowband  S/N  is  approximately 
27  dB  worse. 


6.1.2  Coherence  Function  for  Angular  Frequency  Response 

In  establishing  a mathematical  model  from  test  data  or  for 
verifying  an  analytical  model,  some  form  of  standardized, 
measurable  input-output  relationship  is  needed.  For  linear 
structures  this  is  usually  taken  as  the  frequency  response. 

If  angular  response  can  be  reliably  measured  by  differencing 
of  linear  signals  then  one  important  use  of  these  angular  data 
would  be  to  compute  the  frequency  response  of  angular  degrees 
of  freedom  to  spatially  fixed  force  inputs.  The  ordinary 
coherence  function  [29]  is  a standard  method  of  checking  the 
consistency  of  frequency  responses  measured  by  the  DFT  cross- 
spectral  averaging  method.  In  this  section,  an  expression  is 
obtained  for  the  coherence  function  of  a differentially  measured 
angular  frequency  response  in  terms  of  the  coherence  functions 
associated  with  the  individual  channels. 

Suppose  i-(t)  with  Fourier  transform  L(f)  is  a force  input 
producing  two  acceleration  outputs  y^(t)  and  ^(t)  which  are 
differenced  to  estimate  0(t)  according  to  Eq.  (6.6).  The 
definition  of  coherence  for  this  output  quantity  is 


149 


(6.38) 


Is 


^£.0  = 


£0 


S0S£ 


Relating  this  to  single  channel  quantities 


(Ax)S£q  = L*(Y^  - Yn  ) = L*Y0  - L*Y,  = S„:..  - S 


£y2  “*5^ 


(6.39) 


Ux)‘Sg  = (Y2  - V*  (Y2  - Vp  = s + S. 


Combining  Eqs.  (6.38),  (6.39),  and  (6.40) 


2Re(S..  ..  v (6.40) 

ViV 


is 


£y. 


£0 


1 S£y1 I 2Re(S£y2  S£y1) 
~^%7sy2  " 2Re(Sy1y2^ 


(6.41) 


The  effect  of  channel  sensitivity  mismatching  is  to  intro- 
duce signal-correlated  noise.  Since  this  will  not  be  detected 
by  the  coherence  function  there  is  nothing  to  be  gained  by 
considering  H i H2  in  simplifying  Eq . (6.41).  So  let 


H1  = H2 


c.  Then  since 


|s 


*Yi 


C!2!S£e.|2 

l 


(6.42) 


^i 


c S 


£e . 

l 


etc . 

we  have  from  Eq.  (6.41)  after  canceling  |c|2/|c|2 


is£e  r + is„  i 


£e. 


- 2Re(S£e2 


£0 


S£LSe  + Se  ' 2Re(Se  e ) ]" 

1 2 12 


(6.43). 
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Introducing  the  definitions  of  average  signal  power 
spectrum  S—  from  Eq.  (6.22)  and  spectral  discrete  difference 
a from  Eq.  (6.26)  into  Eq.  (6.43) 


IS 


2 


£e. 


" = 1 r 1 . 

Y*e  2(i-o)  L s0s-~" 

£ e 


|S 


£e. 


S„  S- 
£ e 


2Re(Sie2  Sle^ 

S“S= 

£ e 


] (6.44) 


Combining  this  with  the  definition  of  the  single  channel 
coherence  function 


IS 


£ e . 1 
l 


i e . 

i 


S g S 
i e^ 


(6.45) 


Y£0 


l r &2  2 

2 ( l-a ) LS-  Y£e0 
e Z 


2Re(S£*e2  Slei> 


s- 


£e. 


-]  (6.46) 


Since  there  is  no  reason  to  expect  the  individual  channel 
coherences  to  be  different  any  more  than  the  individual  channel 
noises,  they  will  be  assumed  equal,  that  is 


£e. 


£e. 


= Y 


£e 


(6.47) 


Then 


Re  ( S 


£6 


(l-a) 


CyL- 


* 

£ex  S£e2) 


S£Se 


(6,48) 


The  second  term  in  the  brackets  is  a real,  dimensionless 
function  of  frequency  with  both  numerator  and  denominator 
being  products  of  two  power  spectra  (except  for  the  Re(  • ) 
operator).  In  these  respects,  it  resembles  an  ordinary 
coherence  function.  It  will  therefore  be  given  the  symbol  T 


Re(S  S*  ) 
^2  a x,el  xe2 

S£Se 


(6.49) 


151 


With  this  notation 


Y 


2.. 

£0 


l-o 


(6.50) 


This  is  the  desired  result  although  it  will  likely  be  a poorly 
conditioned  calculation  because  , T^and  a will  all  be  close 
to  unity  for  small  transducer  separation. 


6.1.3  Typical  Value  of  Spectral  Discrete  Difference 

The  narrowband  signal-to-noise  ratio  SNR  and  input-output 
coherence  function  y^q  for  angular  responses  obtained  by 
differencing  have  been  shown  to  depend  on  the  spectral  discrete 
difference  a.  Both  of  these  quantities  are  of  particular 
interest  for  the  frequency  range  around  a structural  resonance. 
In  this  section  a simple  expression  is  obtained  for  a in  terms 
of  the  mode  shape  associated  with  a particular  resonant 
frequency.  This  is  useful  in  order  to  gain  some  idea  of  the 
difficulty  to  be  expected  in  measuring  a,  or  more  specifically 
1-a . 

Suppose  a structure  is  excited  at  a single  degree  of 
freedom  by  a load  £(t)  with  a Fourier  transform  L(f).  Let  L 
be  broad  band  with  unit  amplitude  in  the  frequency  range 
around  an  isolated  resonance  at  f = u)r/ 2tt  . Assume  perfect 
coherence  between  £ and  each  of  the  responses  y^  and  y 2-  Then 


Y1  = H01  L 
Y2  = H0  2 L 


(6.51) 


The  subscript  0 in  Eq.  (6.51)  refers  to  the  driving  point.  Then 

Syiy2  = ^ = HoJ  H02  S*  <6'52> 

By  the  assumption  of  perfect  coherence 
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(6.53) 


Hoi'  s* 


H02l  S£ 


Then  from  Eqs.  (6.26),  (6.52),  and  (6.53) 


a = 


;Re(H01  H02) 

lH0l|2  + 'H02 I 


(6.54) 


If  f is  the  resonant  frequency  associated  with  a normal  mode 
r (r) 

shape  vector  \p  , the  frequency  response  has  the  form 


N 


H0i  (a))  / . .2  . 2 


(6.55) 


r = l (a)  -a)  ) + j 2 


where 


(r 
0 » 


0 and  i'th  entries  in  mode  vector  which  is 
asssumed  to  be  real  and  normalized  to  unit 
modal  mass 
modal  damping  ratio 


For  very  light  damping  can  be  approximated  by  the  rth 

term  of  its  modal  series  for  Using  this  approximation 

along  with  Eq.  (6.54) 


a = 


^2 

2(£ 


4»2  ? 

1 + ^ 


1 - a = 


^9  2 

a - 


(6.56) 


(6.57) 
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Figure  43  shows  a plot  of  dimensionless  signal  1-a  versus 


surement  since  a departs  from  unity  much  more  slowly  than  does 
^2^1*  "I'°  °k’tain  l-ct  °f  even  .01  requires  = 1*153.  Unless 

points  1 and  2 on  the  mode  shape  \jj  fall  close  to  a node  point, 
one  can  expect  the  differential  signal-to-noise  ratio  to  be 
markedly  worse  than  that  for  individual  channels. 

6.1.4  Flexural  Error 

At  higher  frequencies,  the  magnitude  of  uncorrelated  noise 
will  diminish  to  insignificance.  However,  a new  limitation  will 
arise.  An  error  limit  will  be  established  by  the  discrete  angle 
approximation  itself.  In  this  section,  a chart  is  presented  for 
choosing  a separation  distance  for  a given  error. 

At  high  frequencies,  the  bending  mode  shapes  of  plates 
or  beams  are  affected  by  boundary  conditions  only  near  the 
edges.  For  a time-random  load  applied  well  inside  the  boundary 
the  high  frequency  behavior  can  be  interpreted  in  terms  of  an 
infinite  plate  or  beam.  The  power  input  at  a frequency  f 
will  be  propagated  outward  by  waves  of  length  X where  X 
and  f are  related  by  the  dispersion  relation  for  bending  of 
beams  or  plates.  If  the  acceleration  distribution  is  one 
dimensional  (straight  crested  waves  in  a plate)  with  wave- 
length X 


\ * 2 TTX 

y (x)  = D sin  ^ 


(6.58) 


The  finite  difference  approximation  to  angular  accelera- 
tion is 


0 


y(x2)  - y(x^) 


sin  ( — ^-i)  ] 


2ttx 


Ax 


(6.59) 
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Figure  43  Dimensionless  Difference  Signal  1-a  vs.  Mode 
Shape  \p 
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then  if 


, Ax 

x2  ' Xc  2 


Ax 

X1  = Xc  2 


(6.60) 


Equation  (6.59)  can  be  rearranged  as 

2ttx 


9 = cost  — sin(^) 

Ax  a A 


nAx. 


(6.61) 


The  true  angular  acceleration  at  x 

e(x  ) - dy  _ 2ttD  co_!!!5c 
e(xc)  ‘ " A COS  A 


X IS 

c 


(6.62) 


From  Eqs.  (6.61)  and  (6.62) 


0 = [ 


sin 


ttAx 


,ttAx. 
^ A ' 


-]  6 


(6.63) 


The  quantity  in  brackets  is  the  familiar  modulation  function 
which  occurs  when  sampling  is  performed  by  averaging  over  a 
finite  interval.  Call  it  M(*). 

\ A sin(  • ) ,r  riiN 

M(*)  = — ^7^ — (6.64) 

For  straight  crested  waves  in  a plate,  the  dispersion  relation 
is  the  same  as  for  a simple  beam  if  the  Poisson  effect  is 
neglected  [30]. 

c^  =/  2vYkc~^  (6.65) 

c^  = phase  velocity  of  bending  waves 
f = frequency 

k = radius  of  gyration  of  section 
c^  = extensional  wave  speed  /E/p 
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If  Mq  is  the  minimum  allowable  value  of  the  modulation 
function  (1  - Mq  = fractional  error),  then  Eqs.  (6.63),  (6.64), 
and  (6.65)  may  be  combined  to  find  the  frequency  above  which  this 
error  will  be  exceeded. 


f 


2 r M ( M0  ^ 2 
¥ c£kC ] 


(6.66) 


Arranging  in  dimensionless  form 

(If)  = —(  — )"’ 2 [M-1(Mn ) ]2  (6.67) 

c^  it  k 0 

This  relation  is  plotted  in  Figure  44  for  various  dimensionless 
separation  distance  (Ax/k).  For  airborne  optical  system  work 
the  areas  where  one  would  be  likely  to  place  differential 
transducers  are  usually  on  fairly  thick,  stiff  components. 

Thus,  the  upper  half  of  Figure  44  is  probably  the  most  relevant- 
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Figure  44  Upper  Frequency  Limit  for  Differential  Sensing  of 
Angular  Vibration 
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6 . 2 EXAMPLES 

In  this  section  some  examples  are  presented  to  illustrate 
the  practical  meaning  of  the  error  sources  described  in 
Section  6.1.  In  addition,  a method  is  demonstrated  for  reducing 
the  effect  of  one  error  source,  the  interchannel  gain  and  phase 
mismatch . 


6.2.1  Use  of  Error  Formulas 

In  Section  4.6  of  this  report,  an  experiment  is  described 
which  involves  measurement  of  the  PSD  of  angular  acceleration 
at  an  interior  point  on  a uniform  plate.  Error  bands  for  this 
measurement  situation  are  calculated  here  as  an  example.  The 
following  data  are  known: 

Plate  characteristics 


material 

aluminum 

thickness 

0.090 

in . 

Young's  modulus 

10  x 102 * * * 6 

lbf /in? 

mass  density 

2.6  x 10-4 

lbf-sec 

Poisson's  ratio 

0.3 

Measurement  requirements 

minimum  frequency 

100 

Hz. 

maximum  frequency 

1000 

Hz. 

transducer  separation 

1.40 

in . 

is  desired  to  estimate  the  differential  narrowband  : 

noise  ratio  at  the  low  end  of  the  frequency  band  and  the 

flexural  error  at  the  high  end. 

The  noise  spectrum  of  the  accelerometer/signal  conditioning 

system  was  not  measured.  However,  the  transducer  sensitivity 

was  less  than  that  of  transducer  A (see  Figure  45)  by  about  a 

factor  of  100.  If  the  curve  for  transducer  A is  extrapolated 

to  100  Hz.  and  noise  power/Hz.  is  assumed  to  be  proportional 

-2 

to  (sensitivity)  , then  we  may  estimate  the  noise  power 

2 

- 9 

spectrum  at  100  Hz.  to  be  about  2.0  x 10  rj — or 

_ 4 2 2 n z • 

3.0  x 10  (in/sec.)  / Hz.  The  r.m.s.  force  input  was  about 
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Figure  45  Noise  PSD  for  Two  Different  Piezoelectric 
Accelerometers 
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0.3  lbf.  If  the  force  p.s.d.  is  taken  to  be  constant  over 
0-1000  Hz.  and  the  plate  is  approximated  as  infinite  in  extent 
with  the  thickness  and  material  properties  of  the  actual  plate, 
then  the  velocity  p.s.d.  at  the  drive  point  is  [21] 

Sf 

g 9 

y (8ph<c^)^ 

or 

Sfo)2 

S..  = ~ 

^ (8ph<c^) 

Computing  the  signal  power/Hz.  at  100  Hz. 


k = = 0,09'°  = 0.0260  in. 

2/3  2/3 


■jr-ff. 


10  X 10 "h  = 1-  96  x 10 5in/ sec . 
6 x 10 


s _ = „lbf  = 9.o  x io~5 


1000  Hz. 


Hz. 


S.. 

y 


S^u/ 


(9.0)(10"5)[(2tt)(100)]2 


( 8phxc 


[(8) (2.6) (10-4) (0 .090) (0.026) (1.96) (10+  5) ]2 


= 39.0 


,.  , 2.2 

(in/sec. ) 

Hz. 


The  worst  case  single  channel  narrowband  noise/signal  ratio  is 
thus  estimated  as 


c -4 

bn  _ 3.0  x 10 


S-  39.0 

e 


7.69  x 10  6 (-52  dB) 


The  sensing  channels  were  gain-matched  at  300  Hz.  prior  to  use. 
so  residual  mismatch  will  be  taken  as  0.5%  gain  and  1.5°  phase. 
The  mismatch  parameter  6 is  then 
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6 = 1.005  ^ 1.5° 


1.000 


0.0267  80.0° 


6 


7.14  x 10 


-4 


The  spectral  discrete  difference  a could  be  estimated  as  any- 
thing between  -1  and  +1  since  there  is  no  way  of  knowing  where 
the  accelerometers  will  be  placed  relative  to  the  shapes  of 
modes  which  are  resonant  around  100  Hz.  In  deriving  Eq.  (4.78) 
(which  is  the  prediction  this  measurement  was  intended  to  verify) 
it  was  assumed  that  mode  shapes  would  vary  sinusoidally  in  space 
in  directions  parallel  to  the  plate  edges.  We  therefore  assume 
that  the  mid-point  between  the  accelerometers  is  halfway  between 
the  peak  and  zero  of  a sine  wave.  Some  modes  will  be  worse 
(closer  to  the  peak)  and  some  will  be  better.  The  most 

r\ 

important  modes,  i.e.  those  contributing  the  most  to  <0Z>  , 
will  be  those  where  the  transducers  are  closer  to  a node.  The 
midway  assumption  should  therefore  be  conservative.  The 
appropriate  wave-length  A can  be  found  from  the  dispersion 
relation,  Eq.  (6.65),  and  the  elementary  relation  c = fA. 


2ukc 


l 


X 


f 


X 


(2tt)  (0 .026)  (1.96)  (105) 

100 


A = 17.9  in. 


The  values  of  k . x (see  Section  4.4)  corresponding  to  the 


transducer  locations  are  thus 


i\  ^ 2ttAx 
8 " 2A 


IT 


8 


+ ( 2tt  ) ( 1 ■ 40 ) 
( 2 ) ( 17 . 9 ) 


0.146,  0.638  radians 


The  representative  value  of  a is  then,  by  Eq . (6.56) 
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a 


0.461 


orsin( . 638) n 
2 L ii  n ( ~~1 46T  _ 

rsin( . 638) n2 

Lsin(.146)J 


1 + 


The  worst  case  differential  narrowband  signal/noise  ratio  is, 
by  Eq.  (6.27) 


4 (1-a) 

NR  " I c I 2 s 

| -5  | 2 (1+a)  + ■!(—--  -) 

_ 4(1  - 0.461) 

C(7.14)(10“4)(l  + 0.461)  + 4(7.69) (10“6)] 


= 2.01  x 103  (33.0  dB) 

This  level  of  signal  fidelity  should  be  quite  adequate  for  the 
intended  purpose. 

To  compute  worst-case  flexural  error,  we  calculate  the 
wavelength  associated  with  the  highest  frequency  of  interest, 
1000  Hz. 

_ 2ttkca  ^ (2tt)(0.026)(1.96)(105)  r ._ 

A - — IqoO = 5.66  in. 


Then,  using  Eq.  (6.63) 


e 

e 


sin( 


ttAx. 
A ; 


ttAx 

A 


sin  [ 


tt(1.40) 

5.66 


] 


[ 


TT  ( 1 . 40  ) 

5.66 


0.902 


The  effective  reduction  will  actually  be  even  less  than  10% 

since  the  dominant  contributions  to  0 come  from  frequencies 

i"*  • m • s • 

well  below  1000  Hz.  (see  Figure  17). 


6.2.2  Effect  of  Single  Channel  Noise 

To  illustrate  the  effect  of  uncorrelated  noise  in  individ- 
ual accelerometer  channels,  a simple  experiment  was  performed. 

A slender  aluminum  I-beam  was  suspended  in  a horizontal 
position  by  long  cords  to  simulate  a free-free  condition.  It 
was  vibrated  by  a small  shaker  driving  in  the  beam's  weak 
direction  at  a point  slightly  off  midspan.  A time-random  force 
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signal  was  input  and  rotations  at  various  points  along  the 
beam's  length  were  sensed  by  analog  differencing  of  accelero- 
meter outputs.  Frequency  responses  between  angular  acceleration 
output  and  point  force  input  were  measured  and  curve-fitted  to 
estimate  the  first  few  normal  mode  shapes  in  slope  coordinates 
[16].  The  experiment  was  repeated  with  two  different  accelero- 
meter pairs  of  substantially  different  noise  performance. 
Measured  noise  power  spectra  for  both  are  shown  in  Figure  45. 
The  force  input  was  identical  in  both  cases  and  was  much  smaller 
than  one  would  normally  use  in  modal  survey  work  in  order  to 
emphasize  the  effect  of  random  noise  in  the  sensor  channels. 

The  shape  of  the  second  bending  mode  as  measured  by  each 
transducer  pair  is  shown  in  Figure  46.  Since  the  beam  was 
uniform,  any  deviation  from  a smooth  curve  indicates  error  in 
the  measurement.  The  improvement  with  lower  noise  transducers 
is  evident. 


6.2.3  Effect  of  Interchannel  Gain  and  Phase  Mismatch 

The  derivation  leading  to  Eq.  (6.27)  suggests  a method  for 
removing,  or  at  least  reducing,  signal-correlated  error  due  to 
mismatching.  The  method  is  basically  to  measure  the  complex 
(i.e.,  both  gain  and  phase)  mismatch  between  the  two  sensing 
channels  as  a function  of  frequency  and  use  it  to  apply  a small 
correction  to  the  data  coming  from  one  channel  prior  to 
differencing.  Mathematically,  if  we  define  a correction  func- 
tion H as  H (f)  = H0(f)/Hn(f),  then  the  corrected  PSD  of 
c c l 1 

(e^  - e^)  may  be  calculated  either  as 


S 


2 Re [H 

c 


S o ] 
e2ei 


(6.68) 


or  as 


S 


(e 


2 


-e 


1 


) 


H E, 
c 1 


(6.69) 
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Figure  46  Second  Bending  Mode  in  Slope  Coordinates  of 
Free- Free  Beam  Measured  with  Accelerometers 
of  Different  Noise  Performance 
Beam  Length  = 610  cm. 

Section  Radius  of  Gyration  = 1.47  cm. 

Mode  Frequency  = 18.7  Hz. 
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The  former  implementation  is  computationally  faster  since  only 
ensemble  averages  are  corrected  rather  than  the  discrete  Fourier 
transform  of  each  frame  of  data.  However,  the  latter  is  far 
less  sensitive  to  digital  round-off  error.  It  has  been  found 
to  be  superior  for  use  with  the  10  or  12  bit  A/D  converters  and 
16  bit  word  length  generally  found  in  minicomputer-based 
laboratory  data  systems. 

The  measurement  of  Hc  is  of  course  quite  critical  in  the 

method.  It  is  accomplished  by  using  a shaker  to  input  exactly 

the  same  broadband  random  acceleration  to  both  transducers. 

H is  then  computed  simply  as  S /S  for  this  excitation. 

ele2  el 

It  should  be  noted  that  the  correction  function  measured  in 
this  way  will  include  mismatch  between  the  low-pass  anti- 
aliasing filters  which  must  be  inserted  prior  to  digitizing. 
Their  mismatch  will  generally  be  larger  than  the  combined 
mismatch  of  all  other  elements  in  the  channels.  Thus,  it  is 
not  correct  to  use  Hc  measured  by  this  method  to  compute  6(f) 
in  Eq . (6.27)  if  analog  differencing  prior  to  digitization  is 

to  be  used.  It  is  correct  if  differencing  is  to  be  done  after 
digitization,  although  this  would  clearly  be  an  inferior  method. 

A second  experiment  was  performed  to  illustrate  the  effects 
of  interchannel  mismatch  and  to  test  the  correction  method 
described  above. 

A short  section  of  aluminum  I-beam  was  mounted  as  shown 
in  Figure  47.  Dimensions  and  mounting  were  chosen  so  as  to 
approximate  pinned-free  end  conditions.  It  was  driven  in  the 
stiff  direction  by  a shaker  attached  at  the  point  calculated 
to  be  a node  of  the  first  flexural  mode.  Frequency  responses 
between  acceleration  outputs  at  various  points  along  the  beam 
and  force  input  were  measured  over  0 - 1.5k  Hz.  It  was  estab- 
lished that  by  careful  adjustment  of  the  mounting,  it  was 
possible  to  obtain  a frequency  response  which  was  flat  within 
a few  percent  up  to  700  Hz.  The  amplitude  of  the  function  was 
also  found  to  be  directly  proportional  to  the  distance  from  the 
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Figure  47  Test  Structure  for  Evaluating  Angular 

Acceleration  Measurement  Methods . Short  I-Beam 
is  Mounted  in  a Fixed-Free  Condition  and  Driven 
by  a Small  Shaker. 
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pivot  point  to  the  acceleration  sensor.  Thus,  it  could  be 
concluded  that  over  this  frequency  range  the  beam  behaves  as  a 
rigid  body  with  a fixed  axis  of  rotation.  This  implied  that 
angular  acceleration  and  its  PSD  could  be  accurately  measured 
without  differencing  using  only  a single  translational  sensor. 
This  measurement  could  then  be  used  to  check  measurements  made 
by  differencing.  In  addition,  dimensionless  difference  signal 
1 - a for  any  separation  distance  could  be  computed  from 
Eq.  (6.57)  by  taking  \J>2  and  as  the  distances  from  the  pivot 
point  to  the  sensors.  The  experiment  was  set  up  and  a time- 
random  drive  signal  with  a highly  repeatable  spectrum  was 
established.  Angular  acceleration  and  its  PSD  were  then 
measured  by  four  methods . 

1.  Acceleration  at  a single  point  was  measured  and  scaled 

bv  1/x  where  x was  the  distance  from  pivot  to  sensor. 

P P 

2.  Accelerations  at  two  points  along  the  beam  were 
transduced,  analog  differenced,  and  the  result  scaled  by  1/Ax 
where  Ax  was  the  sensor  separation  distance.  Channel  gains 
upstream  from  the  differencing  amplifier  were  set  according  to 
the  transducer  manufacturers  calibration  data. 

3.  Procedure  was  identical  to  2 except  that  the  gain 
of  one  signal  channel  (transducer  plus  charge  amplifier)  was 
adjusted  to  exactly  match  the  other  at  one  frequency  (300  Hz.). 
This  required  a gain  adjustment  of  0.4%  relative  to  that  used 
in  2. 

4.  A correction  function  H was  measured  for  the  two 

c 

sensing  channels  at  their  nominal  gains.  Data  from  both 

channels  were  digitized  and  the  PSD  of  their  difference, 

corrected  for  mismatch  error,  was  computed  per  Eq.  (6.69).  It 

2 

was  then  scaled  by  l/(Ax)  . 

Two  different  separation  distances  were  used  for  methods 
2,  3,  and  4.  Data  from  method  1 is  considered  to  be  the  most 
accurate  and  may  be  used  to  evaluate  the  other  methods . Some 
details  of  the  setup  are  given  in  Table  4. 
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TABLE  4 


TEST  CONDITIONS  FOR  SHORT  BEAM  EXPERIMENT 
USED  TO  INVESTIGATE  MISMATCHING  ERROR 


*1 

*2 

Case 

cm. (in. ) 

cm. (in . ) 

1-a 

A 

58.57(23.061) 

60.96(24.000) 

0.000796 

B 

50.55(19.900) 

60.96(24.000) 

0.0174 

Case  A is  a fairly  demanding  measurement  situation  because 
of  the  combination  of  moderately  high  frequency  and  small 
dimensionless  difference  signal.  Case  B is  probably  more 
typical  of  day-to-day  applications  in  optical  systems.  Results 
are  shown  in  Figure  48  for  Case  A (1-a  = 0.0008)  and  Case  B 
(1-a  = 0.0174).  For  Case  B,  analog  differencing  with  no  special 
attention  to  balancing  is  satisfactory.  For  Case  A,  a drastic 
improvement  is  realized  by  more  careful  analog  balancing  but 
some  error  is  still  evident.  Digital  frequency  compensation 
shows  the  best  performance  in  this  difficult  case.  All  PSD's 
were  measured  by  ensemble  averaging  of  300  frames  with  2.25  Hz. 
frequency  resolution.  These  were  then  smoothed  by  averaging 
in  frequency  over  16  spectral  lines.  The  resultant  estimate 
is  thus  based  on  9600  statistical  degrees  of  freedom  which 
provides  the  smooth  curves  desirable  for  comparison. 

In  summary,  it  appears  that  the  extra  setup  effort  and 
data  processing'  required  by  the  frequency  compensation  method 
are  justified  only  in  severe  cases.  Such  cases  may  be  identi- 
fied as  those  involving  small  transducer  separations  (a  few  cm. 
or  less),  high  frequencies  (200  Hz.  or  more),  or  high  common 
mode  accelerations.  It  may  also  be  worthwhile  if  sensors  of 
different  types  or  low  resonant  frequencies  (less  than  ten  times 
the  desired  data  bandwidth)  are  to  be  paired.  Attention  to 
accurate  gain  matching,  however,  is  always  worthwhile  if  analog 
differencing  is  used. 
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Key 

1 = scaled  from  single  point  acceleration 

2 = analog  differenced  with  nominal  channel  gains 

3 = analog  differenced  with  gains  matched  at  300  Hz. 

4 = digital  differenced  in  frequency  domain  after  correction 

Figure  48  Measured  PSD  of  Angular  Acceleration  of  a Rigid 
Body  with  One  Axis  Fixed 
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6.3  CONCLUSION 


Theoretical  expressions  have  been  developed  for  use  in 
evaluating  or  predicting  the  validity  of  two  types  of  angular 
acceleration  spectral  data  obtained  by  differencing  of  linear 
transducer  outputs.  These  are  response  power  spectra  and 
single  input-single  output  frequency  responses.  A non- 
dimensional  difference  signal  quantity  a and  a coherence-like 
quantity  T have  been  defined.  They  are  indices  which  may  be 
used  to  compute  figures  of  merit  in  the  process  of  measuring 
power  spectra  and  frequency  responses  of  differential  quantities 
by  digital  Fourier  transform  methods. 

Experiments  have  been  carried  out  to  demonstrate  the 
undesirable  effects  of  single  channel  noise  and  interchannel 
mismatch  as  well  as  to  test  a method  of  reducing  errors  due  to 
the  latter. 

The  work  described  in  this  chapter  has  led  to  three 
principal  conclusions  regarding  angular  vibration  measurement: 

(1)  Measurement  by  analog  differencing  of  accelerometer 
signals  is,  in  general,  an  excellent  method  for  day- 
to-day  development  work  provided  frequencies  are  not 
below  30-50  Hz.,  transducers  with  good  noise  perform- 
ance are  used,  and  some  attention  is  paid  to  analog 
gain  matching. 

(2)  For  certain  critical  measurements  such  as  high- 
frequency  angular  vibration  of  mirror  surfaces, 
differencing  of  acceleration  signals  may  be  the  only 
practical  method. 

(3)  Errors  in  differential  measurement  due  to  channel 
mismatching  may  be  reduced  by  digital  frequency  domain 
processing  although  this  is  warranted  only  in 
difficult  measurement  situations. 


171 


SECTION  VII 

TEST  AND  EVALUATION  OF  PREDICTION  METHOD 


During  Phase  III  of  this  contract,  a test  was  performed  to 
assess  the  accuracy  and  usability  of  prediction  techniques  for 
angular  vibration  which  were  developed  during  Phases  I and  II. 
Initially,  it  was  expected  that  tests  of  both  low  and  high  fre- 
quency methods  would  be  performed  during  Phase  III,  and  that  the 
procedure  would  involve  forced  vibration  tests  of  a fairly  complex 
airframe-like  structure.  The  test  plan  was  later  reduced  in 
scope  to  concentrate  on  evaluation  of  Semi-Loof /NASTRAN  methods 
for  low  frequency  prediction.  This  decision  was  made  at  the  end 
of  Phase  II  after  consultation  with  AFFDL.  It  was  motivated  by 
several  factors. 

(1)  Since  the  Semi-Loof  implementation  had  nearly  reached 
the  status  of  a deliverable  product,  its  testing  and 
evaluation  were  given  priority  over  that  of  high  fre- 
quency methods  where  the  work  was  still  relatively 
basic  and  exploratory. 

(2)  The  SEA  work  had  not  yet  reached  the  stage  where  appli- 
cation to  a realistic  airframe  structure  would  be 
meaningful.  It  was  felt  that,  at  a minimum,  an  SEA 
model  should  be  able  to  account  for  connections  between 
components  at  multiple  degrees  of  freedom  in  order  to 

be  worth  testing  on  a simulated  airframe/optical  system. 

(3)  The  time  and  cost  of  completing  the  Semi-Loof  develop- 
ment, modeling  a reasonable  airframe  section,  and 
testing  to  evaluate  the  model  were  thought  to  be  fairly 
predictable.  Together  with  reporting  requirements, 
they  accounted  for  about  85%  of  the  available  Phase 
III  man-hours.  Thus,  there  was  no  real  possibility  of 
significant  further  SEA  development,  let  alone  its 
testing,  during  Phase  III. 

For  these  reasons,  the  Phase  III  test  was  confined  to  mea- 
surement and  prediction  of  low  frequency  response  of  a section 
of  an  aircraft  fuselage  under  known  excitation. 
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Section  7.1  describes  the  test  object  and  its  preparation. 
Section  7.2  describes  the  Semi-Loof  finite  element  model  and 
demonstrates  the  use  of  the  pre-  and  post-processors  with  NASTRAN. 
In  Section  7.3,  the  experimental  procedure  and  equipment  are 
described,  and  Section  7.4  presents  the  comparison  of  predicted 
and  measured  responses. 

7.1  DESCRIPTION  OF  THE  TEST  OBJECT 

The  structure  chosen  as  a test  case  for  the  Semi-Loof  element 
was  a rear  fuselage  section  of  a 1950  vintage  Marine  fighter  air- 
craft. It  was  located  at  the  Alameda  Naval  Property  Disposal 
Yard.  With  the  cooperation  of  AFFDL/FBG,  it  was  acquired  and 
transported  to  Anamet's  laboratory  in  San  Carlos,  California.  It 
is  shown,  as  received,  in  Figures  49  and  50,  and  after  prepara- 
tion in  Figures  51  - 53.  The  preparation  consisted  of  removing 
all  wiring  and  hydraulics,  general  cleaning,  and  removal  of  several 
feet  from  the  front,  as  well  as  the  vertical  stabilizer,  in  order 
to  reduce  the  specimen  to  manageable  size.  The  prepared  structure 
weighed  334  pounds. 

The  structure  is  made  up  primarily  of  flat  and  singly  curved 
panels  with  extensive  stiffeners.  There  are  a number  of  major 
ring  stiffeners  which  probably  carried  concentrated  loads,  as 
well  as  numerous  short  minor  stiffeners  attached  to  individual 
panels.  A box  section  built  into  the  floor  appears  to  have  been 
an  electronics  bay.  The  top  of  the  box  also  served  as  the  rear 
engine  mount. 

While  the  test  structure  is  by  definition  aircraft-like  in 
construction,  it  may  not  be  entirely  typical.  The  fuselage  sec- 
tion contains  heavy  forgings  which  carried  concentrated  loads 
from  the  vertical  stabilizer,  the  carrier  arresting  hook,  and  the 
jet  engine.  However,  these  forgings  are  tied  together  by  shell 
structure,  which  should  make  the  overall  object  a good  test  case 
for  Semi-Loof  modeling.  In  addition,  the  nearly-rigid  forgings 
make  excellent  response  points  for  measuring  angular  vibration. 


173 


Figure  49  Exterior  View  of  Test  Fuselage  in  As-received 
Condition 
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Figure  50  Interior  View  of  Test  Fuselage  in  As-received 
Condition 
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Figure  51 


External  View  of 


Prepared  Test 


Fuselage 
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Figure  52  Internal  View  of  Prepared  Test  Fuselage 
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Figure  53 


Rear  View  of  Prepared  Test  Fuselage  Showing 
Construction  Details 
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7.2  FINITE  ELEMENT  MODEL 

An  outline  of  the  Semi-Loof  model  of  the  fuselage  is  shown 
in  Figure  54.  The  lines  shown  are  the  boundaries  of  the  shell 
elements  used.  Beam  elements  are  not  shown.  Symmetry  was 
assumed  about  a vertical  plane  running  along  the  axis  of  the 
fuselage,  in  spite  of  some  minor  differences  between  one  side 
and  the  other.  While  the  structure  is  geometrically  symmetric, 
or  nearly  so,  individual  mode  shapes  are  either  symmetric  or 
anti-symmetric.  Two  options  were  available  for  handling  the 
symmetry  plane.  One  was  to  compute  two  distinct  sets  of  vibra- 
tion nodes:  one  with  symmetric  boundary  conditions  [f (y)=f (-y) ] , 
and  one  with  anti-symmetric  boundary  conditions  [f (y)=-f (-y ) ] . 
These  sets  would  then  have  to  be  merged  prior  to  performing 
frequency  response  analysis.  Although  this  approach  was 
feasible,  it  was  discarded  because  of  the  uncertain  logistics 
involved  in  merging  the  two  sets  of  nodes.  Instead,  the  other 
side  of  the  fuselage  was  generated  by  reflection  about  the 
symmetry  plane,  using  a small  Fortran  program.  A complete 
listing  of  the  input  data  can  be  found  in  Appendix  C. 

Major  rib  stiffeners  were  modeled  by  offset  curved  L00F3 
beam  elements.  The  skin  was  modeled  by  a single  row  of  L00F8 
(and  some  L00F6)  curved  shell  elements  between  major  ribs. 

Most  of  the  skin  was  stiffened  by  minor  ribs  and/or  stringers, 
mostly  with  a "Z"  cross-section.  These  minor  stiffeners  were 
"smeared"  into  the  shell  structure  using  the  procedure  outlined 
in  Appendix  A for  calculating  equivalent  homogeneous  orthotropic 
shell  properties  based  on  stiffener  section  properties,  stiff- 
ener spacing,  and  skin  properties.  In  fact,  the  PLOOFX  data 
card  described  in  Appendix  A was  developed  specifically  for 
this  application.  In  all,  the  model  contains  585  grid  points, 

142  L00F8  quadrilaterals,  57  L00F6  triangles,  and  194  L00F3 
beam  elements. 

Additional  L00F8  elements  were  used  for  the  floor,  men- 
tioned previously,  and  miscellaneous  beams  and  rigid  masses 
were  used  as  needed.  Material  density  was  increased  5%  to 
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Figure  54  Semi-Loof  Fuselage  Model 


180 


account  for  rivets.  With  this  adjustment,  the  total  weight 
predicted  by  the  model  was  321  lbs.  versus  334  lbs.  measured. 

The  BANDIT  node  resequencing  program  was  modified  to 
recognize  Semi-Loof  elements  and  was  used  to  generate  SEQGP 
cards,  which  reorder  the  grid  points  for  minimum  bandwidth  and 
thus  reduced  solution  times. 

Following  usual  analysis  procedures,  a static  run  with 
uniform  external  pressure  was  made  to  check  out  the  connections 
and  support  conditions  of  the  model.  Following  this  a free 
vibration  run  was  performed  to  extract  natural  frequencies  and 
mode  shapes.  Finally,  several  short  runs  were  made  to  produce 
frequency  response  and  PSD  curves.  These  latter  runs  used  the 
NASTRAN  Checkpoint/Restart  feature  to  use  information  saved 
from  the  free  vibration  run.  In  each  case,  responses  were 
computed  over  a range  of  40  to  160  Hz.  The  0-40  band  was 
eliminated  because  the  "free- free"  modes  actually  had  frequen- 
cies up  to  about  5 Hz.  due  to  finite  stiffness  of  the  supports, 
and  no  attempt  was  made  to  model  these  supports  with  finite 
elements.  Approximate  modal  damping  values  were  used,  based 
on  experimental  values.  Damping  was  quite  light  and  thus  rather 
insignificant  except  perhaps  for  the  heights  of  peak  responses. 
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7.3  TEST  DESCRIPTION 

A series  of  forced  vibration  tests  were  carried  out  on  the 
aircraft  fuselage  section  described  in  Section  7.1.  The  tests 
were  designed  to  furnish  data  for  evaluating  the  Semi-Loof  finite 
element  model  described  in  Section  7.2  and  thereby,  the  Semi-Loof 
element  itself.  The  experimental  procedure  and  equipment  are 
described  in  this  section.  Experimental  results  and  comparisons 
with  predictions  are  in  Section  7.4. 

7.3.1  Overview 

Most  linear  dynamic  response  simulation  under  NASTRAN  is 
done  by  normal  mode  methods.  Thus,  in  developing  a new  element, 
one  would  like  to  make  measured- vs .-predicted  comparisons  in 
terms  of  properties  of  individual  modes.  However,  in  the  current 
case,  this  approach  was  not  practical.  In  principle,  it  should 
be  sufficient  to  compare  predicted  and  measured  values  of  natural 
frequencies  and  selected  entries  of  the  mode  shape  vectors  (after 
normalizing  to  equal  modal  mass)  which  correspond  to  critical 
displacements  and  rotations.  This  implies  that  only  a cursory 
modal  survey  covering  the  selected  response  points  should  be 
necessary.  However,  for  a complex  structure  with  numerous  normal 
modes  such  as  the  fuselage,  the  task  is  not  this  easy.  Unless 
natural  frequency  predictions  are  known  in  advance  to  be  quite 
accurate,  one  is  never  sure  which  predicted  normal  mode  should 
be  compared  with  which  measured  mode.  The  usual  solution  is  to 
measure  mode  vector  entries  for  enough  response  locations  to  ob- 
tain a reliable  physical  picture  of  the  overall  mode  shape.  For 
example,  one  might  identify  a particular  mode  as  the  "first 
twisting"  or  "first  bending"  mode.  Unfortunately,  the  time  and 
cost  allotted  to  testing  of  the  fuselage  under  this  contract 
were  not  adequate  to  allow  a modal  survey  of  this  order,  even 
with  modern  computer-based  methods. 

The  approach  actually  taken  was  to  perform  a test  which 
would  measure  the  accuracy  of  the  finite  element  model  in  an 
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end-to-end  sense.  What  was  given  up  in  order  to  meet  time  and 
cost  limits  was  detailed  information  about  individual  modes  which 
one  might  use  to  improve  the  model. 

The  test  consisted  of  mounting  the  fuselage  on  a soft  sus- 
pension to  simulate  a free-free  condition  and  measuring  a number 
of  acceleration/force  frequency  responses.  Both  linear  and  angu- 
lar accelerations  were  taken  as  response  variables.  Input  was  a 
single  point  force  in  all  cases.  The  frequency  responses  were 
measured  in  digital  form  and  stored  on  disc  for  later  processing 
and  comparison  with  NASTRAN  predictions.  The  functions  were  con- 
verted digitally  to  displacement /force  frequency  responses  and 
these  were  used  to  predict  displacement  PSD's  and  r.m.s.  values 
for  a specified  force  input  PSD.  This  computational  procedure 
facilitated  comparison  with  NASTRAN  predictions  in  terms  of  out- 
put PSD  and  r.m.s.  quantities.  An  important  practical  advantage 
is  that  NASTRAN  and  experimental  output  quantities  could  be  com- 
pared on  the  basis  of  identical  input  force  PSD  without  requiring 
precise  closed  loop  control  of  the  experimental  input. 

7.3.2  Test  Procedure 

Diagrams  of  the  test  object  showing  input  and  response 
point  locations  are  presented  as  Figures  55  through  57.  Table 
5 gives  the  location,  direction,  and  type  (translation  or 
rotation)  of  all  degrees  of  freedom.  Table  6 shows  which  of 
the  possible  entries  of  the  frequency  response  matrix  were 
actually  measured.  Each  column  represents  a different  input 
degree  of  freedom  (shaker  location)  and  each  row  represents  a 
different  response  quantity.  A total  of  3 shaker  locations  were 
used  in  an  attempt  to  acquire  at  least  one  frequency  response 
function  with  a significant  contribution  from  each  mode  in  the 
0-160  Hz  measurement  band.  A total  of  16  response  degrees  of 
freedom  were  used,  of  which  8 represented  translations  and  8 
represented  rotations.  From  Table  6 it  may  be  observed  that 
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Figure  55  Sketch  of  Test  Object  Showing  Input  Force 

Location  and  Direction  (Arrow) , Translational 
Response  Sensor  • , and  Rotational  Response 
Sensor  0 
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Figure  56  Front  View  Sketch  of  Test  Object  Showing  Input 

Force  Location  and  Direction  (Arrow),  Translational 
Response  Sensor  • , and  Rotational  Response  Sensor 
0 
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Figure  57  Partial  Sketch  of  Test  Object  Showing  Location  of 
Rotational  Sensor  No.  5 


186 


TABLE  5 

DESCRIPTION  OF  RESPONSE  VARIABLES 


Number  8 
Direction 

iy 

2y 

3x 

4x 

5x 

llz 

l2y 

1 3x 

2 lx 

2iy 
21z 
2 2y 
2 3x 
31x 

32z 

33y 


TyPe 

trans . 

trans . 

trans . 

rot . 

rot . 

rot . 

rot . 

trans . 

trans . 

trans . 
trans . 
rot  • 
rot . 
trans . 


Location 


Inside  fuselage  at  extreme  lower  right 
front  on  end  of  heavy  wishbone  beam. 

Outside  of  fuselage,  right  side,  near  box 
section  reinforcement  for  airbrake  pivot 
bolt . 

Outside  bottom  of  fuselage,  near  arrest- 
ing hook  bracket. 

Yaw  at  extreme  lower  right  front  on  heavy 
beam  outside  wishbone. 

Yaw  on  major  longitudinal  stiffener  at 
lower  left,  just  behind  electronics  en- 
closure . 

Roll  on  major  rib  stiffener  S,  left  in- 
side of  fuselage  over  electronics  enclo- 
sure . 

Pitch  at  junction  between  major  rib 
stiffener  S and  top  of  left  airbrake  box. 

Top  of  left  airbrake  box  inside  fuselage 
between  ribs  0 and  S. 

Outward  normal  direction  (slightly  to 
the  right  of  vertical)  on  rib  C near 
lower  right  corner  of  stabilizer  stub. 

Lower  right  side  of  stabilizer  stub. 

Lower  right  front  of  stabilizer  stub. 

Pitch  at  base  of  stabilizer  stub. 

Yaw  at  base  of  stabilizer  stub. 

Top  center  front  of  electronics  enclo- 
sure. 


rot.  Roll  at  top  front  center  of  electronics 

enclosure. 


rot.  Pitch  at  top  front  of  electronics  enclo- 

sure on  stringer  slightly  left  of  center. 
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TABLE  6 


Response 

MEASURED  FREQUENCY  RESPONSES 

Input 

iy 

2y 

3x 

iy 

X 

2y 

X 

3x 

X 

4x 

X 

5x 

X 

llz 

X 

X 

X 

I2y 

X 

X 

X 

13x 

X 

X 

X 

2 lx 

X 

X 

X 

2iy 

X 

X 

X 

21z 

X 

X 

X 

22y 

X 

X 

X 

2 3x 

X 

X 

X 

31x 

X 

X 

X 

32z 

X 

X 

X 

33y 

X 

X 

X 
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a total  of  38  different  input/output  pairs  were  used.  Random 

excitation  was  provided  by  an  electrodynamic  shaker  of  50  lbf 

(peak)  capacity.  Typical  drive  levels  were  3-10  lbf  (r.m.s.), 

depending  on  input  and  response  locations.  This  drive  level  was 

2 

found  to  give  excellent  coherence  (y  > 0.97)  between  force  and 
acceleration  over  the  frequency  range  of  50  to  160  Hz  when  the 
shaker  drive  signal  was  bandlimited  to  5-180  Hz.  However,  a 
separate  run  with  all  drive  power  concentrated  in  the  5-60  Hz 
band  was  needed  to  get  good  coherence  below  50  Hz. 

Frequency  responses  for  the  38  input/output  pairs  were 
measured  over  0 to  160  Hz.  The  measurement  was  made  using  both 
a baseband  FFT  (Af  = 0.312  Hz)  and  a high  resolution  or  zoom 
FFT  (Af  = 0.1  Hz).  The  wideband  measurements  were  intended  as 
quick- look  data,  and  the  zoomed  functions  for  estimation  of  modal 
parameters,  such  as  damping.  It  was  found  that,  in  most  cases, 
the  wideband  functions  could  be  used  to  compute  output  PSD  and 
r.m.s.  quantities  with  negligible  error. 

A typical  run  was  made  by  first  setting  the  drive  signal 
passband  to  5-60  Hz  and  adjusting  the  force  amplitude  to  about 
10  lbf  (r.m.s.).  A baseband,  512  spectral  line  frequency  response 
over  0-60  Hz  was  then  measured  and  stored.  The  drive  passband 
was  next  opened  up  to  5-180  Hz,  and  the  amplitude  adjusted  as 
required.  400  seconds  of  the  force  and  response  signal,  sampled 
at  640  Hz,  were  digitized  and  throughput  to  disc  in  real  time. 

The  shaker  was  then  shut  down  and  a stored  program  was  run.  It 
processed  the  stored  data  to  obtain  a 512  line  baseband  frequency 
response  over  0-160  Hz,  as  well  as  five  zoomed  frequency  responses 
of  200  spectral  lines  each,  spaced  over  60-80,  80-100,  100-120, 
120-140,  and  140-160  Hz.  While  this  processing  was  taking  place, 
the  operator  was  free  to  move  the  sensors  or  shaker  to  the  loca- 
tion desired  for  the  next  run. 
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A potential  problem  with  the  procedure  as  described  above 
involves  the  rigid  body  modes  of  the  test  object.  It  is  desirable 
that  the  actual  test  object  and  its  NASTRAN  idealization  be 
identical  with  respect  to  support  conditions.  However,  boundary 
conditions  such  as  free  or  fixed  which  are  easy  to  analyze  may 
be  quite  difficult  to  implement.  Likewise,  a condition  which 
is  readily  constructed  may  be  impractical  to  model.  The  solution 
for  this  case  was  to  use  a soft,  pneumatic  suspension  and  model 
it  as  free-free.  This  implies  that  pure  rigid  body  modes  at  zero 
frequency  will  be  suppressed,  but  will  reappear  as  nearly  rigid 
modes  at  low  frequency.  Also,  some  slight  modification  of  flex- 
ural modes  will  occur  due  to  constraint  forces.  Some  care  is 
required  if  predicted-vs . -measured  comparisons  are  made  on  the 
basis  of  displacement , which  may  be  dominated  by  contributions 
from  rigid  body  modes  which  were  modeled  only  approximately. 

Two  measures  were  taken  to  minimize  this  problem: 

(1)  The  hypothetical  input  force  PSD  used  for  measured-vs . - 
predicted  comparison  was  taken  to  be  zero  below  40  Hz. 
Since  the  highest  rigid  body  mode  was  at  about  5 Hz. 
and  the  lowest  elastic  mode  was  at  45  Hz,  this  reduced 
the  effect  of  rigid  body  modes  considerably. 

(2)  Frequency  responses  selected  for  comparison  were  those 
where,  within  the  40-160  Hz  comparison  band,  contribu- 
tions from  elastic  modes  were  large  relative  to  those 
from  rigid  body  modes. 

It  is  possible  to  further  reduce  the  effect  of  support  con- 
ditions on  the  measured  frequency  response  functions  by  careful 
data  processing.  A parametric  representation  of  each  function 
may  be  obtained  by  curve  fitting  a complex  partial  fraction 
expansion  to  the  measured  version.  The  analytic  form  represents 
the  contribution  of  each  mode,  flexural  or  rigid,  by  a pair  of 
terms.  The  function  may  then  be  resynthesized  including  only 
the  terms  corresponding  to  straining  modes.  While  the  data  taken 
was  sufficient  to  carry  out  this  procedure,  it  was  not  done  due 
to  time  and  cost  limitations. 
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7.3.3  Test  Equipment 

Figure  58  is  a schematic  of  the  test  setup.  A list  of 
equipment  used  is  supplied  as  Table  7. 

Because  of  the  low  excitation  force  level  available  relative 
to  the  mass  of  the  test  object,  it  was  found  that  very  low— noise 
acceleration  sensing  was  necessary.  The  combination  of  Endevco 
2207-200  transducers  and  2735  charge  amplifiers  was  found  to  give 
an  instrumentation  noise  level  of  about  28  yg  (r.m.s.).  High  co- 
herence measurements  were  possible  for  all  input-output  pairs 
as  long  as  the  available  force  was  concentrated  in  the  frequency 
band  of  interest  and  some  effort  was  made  to  maintain  a quiet 
test  environment. 

Angular  acceleration  was  sensed  by  analog  differencing  of 
translational  acceleration  signals.  Analog  gain  balancing  was 
performed  at  100  Hz  prior  to  testing.  Residual  unbalance  was 
estimated  as  less  than  0.5%  gain  and  0.5°  phase. 

Typical  r.m.s.  response  levels  were  on  the  order  of  0.04  g. 
The  lowest  observed  elastic  mode  of  the  fuselage  was  at  45  Hz.  We 
may  use  Eqs.  (6.27)  and  (6.37)  of  this  report  to  estimate  that 
at  this  frequency  a differential  narrowband  signal/noise  ratio 
of  30  dB  could  be  maintained  down  to  a dimensionless  difference 
signal  level  of  1-a  = 0.05  and  20  dB  could  be  maintained  down  to 
1-a  = 0.005.  This  was  considered  adequate  for  the  purpose  at 
hand.  Transducer  separation  varied  for  the  different  response 
locations,  but  was  always  in  the  6.5  - 10.5  inch  range.  Flexural 
error  was  estimated  using  Figure  44  of  this  report  and  was  found 
to  be  less  than  10%  for  all  cases.  However,  data  from  location 
llz  was  eventually  discarded  because  it  was  decided  that  the 
beam  flange,  on  which  the  transducers  were  mounted,  was  too 
flexible  to  give  a good  approximation  to  a one-dimensional  beam. 
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Accelerometer 


Figure  58  Schematic  of  Test  Setup 
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TABLE  7 


Item 

TEST  EQUIPMENT 

Manufacturer 

Model 

Load  Cell 

Bruel  6 Kjaer 

8200 

Accelerometers 

Endevco 

2207-200 

Charge  Amp. 

Endevco 

2735 

Dif.  Amp. 

Honeywell 

122 

Noise  Generator 

Wavetek 

132 

Variable  Filter 

Krohn-Hite 

3323 

Shaker 

Unholtz-Dickie 

Model  1 (50  lbf ) 

Power  Amp. 

Unholtz- Dickie 

TA3  5I 

A/D  Converter 

Time/Data 

TDA- 2 5 

Computer 

DEC 

PDP  11/34 

Scope 

Tektronix 

434 
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7.4 


Results 


Table  8 lists  the  natural  frequencies  measured  in  the 
test  versus  those  predicted  analytically.  It  should  be  empha- 
sized that  there  is  no  way  to  know  for  certain  which  experi- 
mental mode  corresponds  to  which  analytical  mode.  For  example, 
the  eighth  analytical  mode  (46.3  Hz)  may  correspond  to  either 
the  seventh  (45.5  Hz)  or  eighth  (48.7  Hz)  mode,  and  this  could 
be  determined  only  by  a detailed  investigation  of  the  mode  shape 
geometries.  It  should  also  be  noted  that  the  list  of  experi- 
mental modes  is  almost  certainly  incomplete  due  to  the  finite 
number  of  response  points.  The  analytical  model  includes  all 
modes  up  to  a certain  frequency,  including  any  local  modes  that 
may  have  been  missed  in  the  test.  "Generalized  dynamic  reduc- 
tion" was  the  eigenvalue  solution  method  that  was  chosen.  If 
Guyan  reduction  had  been  used,  with  a judiciously  selected 
analysis  set,  it  probably  would  have  been  possible  to  eliminate 
these  local  modes. 

PSD  plots  are  shown  in  the  following  figures  for  three 
separate  driving  points  as  listed  in  Section  7.3.  Figures  59 
through  70  are  experimental  results  and  Figures  71  through  75 
are  analytical  results.  At  best,  there  is  some  qualitative 
agreement  between  respective  pairs  of  plots.  Both  exhibit  peaks 
around  70  Hz.  The  analytical  results  show  a peak  around  90  Hz 
which  is  not  seen  in  the  experimental  plots.  Both  also  exhibit 
peaks  in  the  area  of  140  to  150  Hz.  Table  9 lists  r.m.s.  values 
for  several  response  PSD's.  Correlation  is  fairly  good  for  some 
of  these  values. 

Power  spectral  density  functions  are  plotted  in  linear 
amplitude-linear  frequency  format.  This  allows  a direct  inter- 
pretation of  the  area  under  the  curve  in  terms  of  the  mean 
square  response.  As  a further  aid  to  visualization  of  the  fre- 
quency distribution  of  response,  a quantity  called  the  normal- 
ized cumulative  r.m.s.  response  is  plotted.  It  is  a function 
of  frequency  defined  as 
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TABLE  8 


NATURAL 

Experimental 

45.5 

48.7 
70.1 

79.7 

83.0 

109.8 

111.8 

113.9 

121.9 
126.6 

130.0 

133.3 

137.0 

140.0 

148.7 

155.9 


FREQUENCIES  OF  THE 
Mode  No. 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 


30 


FUSELAGE 

Analytical 

22.7 

46.3 

71.9 

74.2 

79.3 

85.1 

88.4 

88.9 

90.9 

95.5 

97.1 
112.0 
112.2 

116.4 

118.0 

120.7 


149.5 
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cum.  r.m.s. 


(7.1) 


Since  S(f),  the  PSD,  is  always  positive,  the  cumulative  r.m.s. 
is  also,  and  will  always  range  from  zero  at  f=0  to  unity  at 
f=f  . Thus,  no  scale  is  shown  for  it  on  the  plots  of 
Figures  59  to  70. 


One  would  have  to  call  this  this  test  inconclusive  with 
respect  to  evaluation  of  the  Semi-Loof  elements.  The  performance 
of  the  elements  is  masked  by  a number  of  other  considerations 
which  dominated  this  exercise.  These  questions  include  the  fol- 
lowing: (1)  What  was  the  true  damping  in  the  system?  (2)  What 

were  the  true  support  conditions?  (3)  What  was  the  effect  of 
the  angular  accelerometers  and  their  mounts,  in  terms  of  both 
stiffness  and  inertia  (not  considered  in  the  model)?  (4)  What 
local  structural  deformations  might  have  been  missed  by  the  fi- 
nite element  model. 


TABLE  9 

R.M.S.  VALUES  OF  PSD  RESPONSES  OF  THE  FUSELAGE 


Drive 

Point 

Response 

Point 

Experimental 

Analytical 

1Y+ 

22Y  + 

5.5 

x 10-5 

7.6 

X 

10-6 

1Y+ 

2 3X+ 

7.3 

x 10-5 

2.3 

X 

IQ'5 

2Y- 

32Z  + 

2.1 

x 10-5 

4.1 

X 

IQ'6 

3X+ 

22Y+ 

8.5 

x 10-6 

7.6 

X 

IQ"6 

3X+ 

2 3X+ 

3.0 

x 10~6 

2.4 

X 

IQ"6 
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Figure  59  Experimental  Results 

Response  Point  1,  Y Translation 
Driving  Point  1,  Y Translation 
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Figure  60  Experimental  Results 

Response  Point  21,  Z Translation 
Driving  Point  1,  Y Translation 
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Figure  61  Experimental  Results 

Response  Point  22,  Rotation  about  Y 
Driving  Point  1,  Y Translation 
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Figure  62  Experimental  Results 

Response  Point  23,  Rotation  about  X 
Driving  Point  1,  Y Translation 
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Figure  63  Experimental  Results 

Response  Point  4,  Rotation  about  X 
Driving  Point  2,  Y Translation 
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Figure  64  Experimental  Results 

Response  Point  5,  Rotation  about  X 
Driving  Point  2,  Y Translation 
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Figure  65  Experimental  Results 

Response  Point  12,  Rotation  about  Y 
Driving  Point  2,  Y Translation 
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Figure  66  Experimental  Results 

Response  Point  21,  Z Translation 
Driving  Point  2,  Y Translation 
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Figure  67  Experimental  Results 

Response  Point  23,  Rotation  about  X 
Driving  Point  2,  Y Translation 


205 


Figure  68  Experimental  Results 

Response  Point  32,  Rotation  about  Z 
Driving  Point  2,  Y Translation 


206 


IT- 


O 

lO 


O 

O 

rH 


tSl 

K 

I 

>H 

o 

w 

D 

cy 

w 

Ph 

PM 


o 

LO 


o 


I I I 


o 

o 

O 

Q 

o 

rH 

rH 

rH 

CO 

rH 

X 

X 

X 

PL, 

X 

o 

LO 

o 

LO 

o 

CNI 

rH 

i — 1 

<D 

W 

N 

• 

o 

• 

o 

C 

o 

a.  cni 

w 

Q)  ftf 


Figure  69  Experimental  Results 

Response  Point  22,  Rotation  about  X 
Driving  Point  3,  X Translation 
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Figure  70  Experimental  Results 

Response  Point  23,  Rotation  about  Y 
Driving  Point  3,  X Translation 
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Figure  71  Analytical  Results 

Response  Point  22,  Rotation  about  Y 
Driving  Point  1,  Y Translation 
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Figure  72  Analytical  Results 

Response  Point  23,  Rotation  about  X 
Driving  Point  1,  Y Translation 
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Figure  73  Analytical  Results 

Response  Point  32,  Rotation  about  Z 
Driving  Point  2,  Y Translation 
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Figure  74  Analytical  Results 

Response  Point  22,  Rotation  about  Y 
Driving  Point  3,  X Translation 
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Figure  75  Analytical  Results 

Response  Point  23,  Rotation  about  X 
Driving  Point  3,  X Translation 
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In  retrospect,  the  fuselage  analysis  may  not  have  been 
the  ideal  application  for  Semi-Loof  given  its  present  state  of 
development.  If  the  purpose  of  its  development  was  to  provide 
an  advanced  tool  for  analysis  work,  then  it  would  have  been 
informative  to  continue  the  policy  followed  in  Phases  I and  II 
by  modeling  the  same  structure  with  both  Semi-Loof  and  QUAD2 
or  other  "standard"  elements  and  then  assessing  the  improvement 
in  terms  of  accuracy  per  degree  of  freedom.  Secondly,  a smaller 
structure  with  equal  complexity  in  terms  of  stiffeners,  eccen- 
tricity, etc.  would  still  have  exercised  the  Semi-Loof  elements 
just  as  well  without  the  difficulties  of  getting  large  computer 
runs  through  a saturated  central  computer  facility. 

In  spite  of  the  disappointing  results  of  the  analysis,  a 
number  of  valuable  lessons  were  learned  in  the  process.  First, 
the  participants  emerged  with  a renewed  appreciation  of  the 
amount  of  work  involved  in  creating  and  debugging  a large  finite 
element  model.  Second,  there  was  valuable  feedback  regarding 
some  of  the  capabilities  and  input  options  needed  in  a large 
modeling  job.  In  particular,  these  included  convenient  ways 
to  specify  beam  orientations  and  offsets,  and  convenient  speci- 
fication of  orthotropic  (smeared  stiffener)  element  orientation. 
Third,  the  exercise  emphasized  the  number  of  variables  or  po- 
tential sources  of  discrepancy  that  can  occur  in  an  attempt  to 
compare  experimental  to  analytical  results.  Fourth,  the  Semi- 
Loof  elements  stood  up  well  with  respect  to  convenience  of  in- 
put and  other  operational  details. 
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SECTION  VIII 
SUMMARY  AND  CONCLUSIONS 


Angular  vibration  problems  in  aircraft  have  been  studied 
in  two  distinct  realms  of  vibration  frequency.  Low  frequency 
problems  have  been  studied  from  a deterministic  viewpoint; 
that  is,  under  the  assumption  that  individual  natural  frequen- 
cies and  mode  shapes  can  be  determined  in  some  detail  by  ana- 
lytical methods.  Higher  frequency  problems  have  been  approached 
in  a statistical  manner.  The  assumption  here  is  that  properties 
of  individual  modes  cannot,  and  should  not,  be  examined,  but 
that  aggregate  response  of  mode  groups  can  be  estimated  given 
only  a limited  structural  description. 

Considerable  research  and  literature  searching  was  carried 
out,  but  there  was  little  to  be  found  in  the  way  of  methods 
specifically  addressed  to  angular  vibration.  Upon  further  re- 
flection, it  was  decided  that  development  work  would  have  to 
be  more  general  in  nature,  meaning  that  any  new  or  improved 
methods  would,  for  the  most  part,  be  relevant  to  vibration  pro- 
blems in  general,  and  not  just  angular  vibration. 

The  finite  element  method  is  the  principal  analytical  tool 
currently  in  use  for  structural  analysis.  A number  of  advanced 
shell  elements  have  been  reported  in  the  literature,  but  little 
of  this  progress  has  reached  production  users  who  mostly  employ 
large,  widely  distributed  codes  such  as  NASTRAN.  One  set  of 
curved  shell  elements  known  as  "Semi-Loof"  elements  seemed 
especially  promising.  A skeleton  cofnputer  program  was  obtained 
from  its  developer,  Professor  Bruce  Irons.  A preprocessing  code 
was  built  around  Irons'  code  to  make  it  possible  to  use  these 
elements  with  NASTRAN.  This  enables  users  to  take  full  advan- 
tage of  NASTRAN' s capabilities.  Small  test  problems  showed 
encouraging  results.  A small  stiffened  panel  was  tested  with 
results  showing  good  agreement  with  Semi-Loof  predictions.  A 
large  fuselage  model  was  analyzed  and  tested,  but  with  incon- 
clusive results.  A mathematical  irregularity  was  encountered 
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in  the  quadrilateral  element  involving  spurious  mechanism  modes. 
The  problem  was  found  to  be  avoidable,  but  still  annoying. 

The  Semi-Loof  pre-  and  post-processing  programs  are  con- 
sidered to  be  in  production  status,  with  careful  attention 
having  been  given  to  input  formats  and  error  checking.  Still, 
much  more  user  experience  will  be  needed  before  conclusive 
evaluations  of  these  elements  can  be  made.  It  is  hoped  that  a 
real  contribution  has  been  made,  not  only  to  angular  vibration 
methods,  but  to  other  shell  analysis  problems,  as  well. 

For  high  frequency  analysis,  there  is  no  widely  accepted 
method  with  the  flexibility  and  accuracy  which  finite  elements 
allow  in  low  frequency  work.  This  is  not  surprising,  consider- 
ing the  previously  stated  definition  of  the  high  frequency 
problem.  During  early  literature  searching,  it  was  found  that 
a rather  diverse  body  of  theory  under  the  general  name  of 
Statistical  Energy  Analysis  (SEA)  had  been  developed  during 
the  1960's  in  response  to  the  difficulties  of  high  frequency 
analysis.  The  method  draws  heavily  on  classical  deterministic 
theories  of  acoustics,  wave  mechanics,  and  normal  mode  methods, 
and  yet  takes  quite  a unique  view  of  vibration  problems  generally 
in  that  it  uses  component  energies  and  intercomponent  power 
flows  as  primary  variables.  SEA  appeared  to  be  well  suited  to 
the  problem  of  predicting  indirectly  excited  high  frequency 
vibration  of  a piece  of  equipment  mounted  in  an  aircraft.  The 
method  is  quite  general  and  is  not  restricted  to  angular  vibra- 
tion . 

It  was  decided  that,  due  to  the  inexperience  of  the  in- 
vestigators with  SEA,  a small  demonstration  problem  should  be 
undertaken.  The  wave  transmission  method  of  SEA  was  used  to 
predict  equilibrium  energy  ratio  and  power  transmission  co- 
efficient between  two  uniform  plates  coupled  at  a single  degree 
of  freedom.  Comparison  with  experiment  showed  agreement  which 
was  quite  encouraging  in  the  light  of  the  extensive  assumptions 
involved.  While  physically  simple,  the  experiment  embodied  the 
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typical  factors  which  make  high  frequency  predictions  difficult. 
Mode  counts  were  very  high  (over  600  total  for  the  two  plates) 
and  individual  mode  shapes  could  not  be  determined.  It  was 
demonstrated  how  interactive  digital  FFT  processing  of  measured 
data  could  be  used  to  obtain  the  so-called  coupling  loss  factors 
and  internal  loss  factors  of  SEA.  It  was  also  demonstrated, 
and  verified  by  experiment,  that  the  basic  assumptions  of  the 
wave  transmission  method  can  be  utilized  to  estimate  r.m.s. 
angular  response  given  the  component  total  energy  for  a uniform 
plate.  While  some  software  was  developed  in  the  course  of  the 
SEA  experiment,  it  cannot  yet  be  considered  a production  tool 
for  the  prediction  of  high  frequency  angular  vibration. 

Because  of  the  extensive  use  of  experimental  methods  for 
prediction  of  angular  vibration,  some  effort  was  devoted  to 
purely  measurement  problems.  Differencing  of  output  signals 
from  translational  accelerometers  was  identified  as  the  most 
generally  useful  method  of  angular  vibration  measurement.  Theo- 
retical error  analyses  were  performed  to  quantify  the  effects  of 
intrachannel  noise,  interchannel  gain  and  phase  mismatch,  and 
flexure  of  the  mounting  surface.  It  was  concluded  the  measure- 
ment requirements  involved  in  development  of  prediction  methods 
could  be  satisfied  by  the  differencing  technique. 
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APPENDIX  A 

SEMI-LOOF  USER’S  MANUAL 


A.  1 INTRODUCTION 

This  appendix  is  intended  to  supply  all  the  information 
needed  to  prepare  finite  element  models  using  Semi-Loof  shell 
and  beam  elements.  The  reader  is  assumed  to  have  read 
Section  III  of  this  report,  which  presents  the  background  and 
mathematical  nature  of  Semi-Loof  elements.  In  addition,  an 
"intermediate"  level  of  NASTRAN  expertise  is  assumed.  This 
implies  fairly  extensive  experience  with  medium-  to  large-scale 
modeling  problems.  No  facility  with  the  DMAP  language  is 
assumed,  however.  DMAP  Alter  packages  described  in  this 
appendix  are  designed  to  be  used  as  "black  boxes." 

The  remainder  of  this  appendix  is  organized  as  follows: 

Section  A. 2 is  a general  discussion  of  the  Semi-Loof 
element,  reviewing  the  capabilities,  assumptions,  and- 
precautions  that  users  must  have  in  mind. 

Section  A. 3 gives  instructions  for  preparing  input  data 
for  PRELOOF,  the  Semi-Loof  preprocessing  routine.  For  the  most 
part,  this  data  is  prepared  in  the  NASTRAN  "BULK  DATA"  format. 

Section  A. 4 discusses  POSTLOOF,  the  post-processing  routine 
for  recovery  of  rotations  and  stresses. 

Section  A. 5 presents  deck  setups  for  CDC  computers.  The 
Semi-Loof  coding  has  not  been  implemented  on  any  other  machines 
at  this  time. 

Finally,  Section  A. 6 is  a compilation  of  programmer's  notes 
for  those  who  are  interested  in  programming  details. 

Listings  of  control  card  procedures,  Fortran  source  code 
for  PRELOOF  and  POSTLOOF,  and  DMAP  Alters  appear  in  Appendix  B. 
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A.  2 GENERAL  DISCUSSION 

The  following  is  a summary  of  the  salient  features  of  the 
Semi-Loof  shell  and  beam  elements  from  the  user's  point  of  view. 

First,  the  shell  elements  are  strictly  for  thin  shell 
analysis,  as  reflected  in  the  assumption  of  zero  transverse 
shear  strain  at  selected  points  on  the  shell.  The  decision  as 
to  what  constitutes  a thin  shell  is  an  engineering  judgement, 
based  on  the  R/t  ratio.  R is  a radius  of  curvature  for  a curved 
shell,  or  a typical  span  for  a flat  plate.  R/t  should  normally 
exceed  10  for  a thin  shell. 

The  shell  elements  represent  both  stretching  and  bending 
action.  For  flat  plates,  one  may  suppress  one  or  the  other  of 
these  actions.  Assuming  the  plate  lies  in  the  x-y  plane,  one 
would  constrain  degrees  of  freedom  1 and  2 to  eliminate 
stretching,  or  3,  4,  5,  and  6 for  bending.  (Even  though  4,  5, 
and  6 are  already  suppressed  by  permanent  single  point  con- 
straints at  corner  nodes,  and  6 at  Loof  nodes,  it  is  not  an 
error  to  constrain  these  redundantly  on  SPC  cards.  See  the 
discussion  of  permanent  SPC's  in  the  next  section.) 

It  is  important  to  keep  in  mind  the  nature  of  the  degrees 
of  freedom  for  these  elements.  As  explained  in  Section  3.4, 
each  node  point  uses  degrees  of  freedom  1,  2,  and  3 as  transla- 
tions, like  other  NASTRAN  elements,  but  dof  4,  5,  and  6 are 
different.  For  the  shell  element,  no  rotation  degrees  of 
freedom  are  defined  at  corner  points.  This  does  not  mean  that 
rotations  are  zero  at  such  points,  but  only  that  these  rotations 
are  not  independent  degrees  of  freedom.  At  mid-side  nodes,  dof 
4 and  5 represent  rotations  about  the  tangent  to  the  element 
side.  These  rotations  are  not  actually  located  at  the  mid-side 
node,  but  at  the  Loof  nodes,  located  at  about  58%  (1//3)  of  the 
distance  from  the  mid-side  to  either  corner.  Thus  the  values 
of  dof  4 and  5 are  not  usually  of  interest  at  mid-side  nodes, 
but  their  nature  must  be  understood  when  it  comes  to  applying 
constraints,  loads,  or  especially  joining  other  elements.  If 
another  NASTRAN  bending  element  were  joined  to  the  mid-side  node 
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of  a Semi-Loof  shell,  the  NASTRAN  element  would  interpret  dof 
4 and  5 as  rotations  about  the  x and  y axes  at  that  node  point, 
while  the  Semi-Loof  element  would  interpret  them  as  explained 
above.  This  error  would  not  be  detected  by  the  software.  The 
Semi-Loof  beam  element  defines  all  three  translations  and  three 
rotations  in  the  normal  NASTRAN  manner  at  the  two  end  points. 

The  middle  node  uses  dof  4 and  5 as  Loof  rotations  for 
compatibility  with  the  shell  elements. 

From  this  discussion  it  may  be  seen  that  the  mid-side  nodes 
are  in  a sense  subservient  to  the  corner  nodes.  That  is,  each 
mid-side  node  serves  to  define  the  shape  of  the  arc  joining  two 
corner  nodes.  The  fact  that  L00F8  has  eight  nodes  should  not 
be  construed  to  mean  that  L00F8  is  an  eight-sided  element.  In 
setting  up  a model,  one  should  first  locate  the  corner  nodes 
and  then  place  the  mid-side  nodes  at  the  center  of  each  element 
edge.  Although  tests  have  shown  that  a considerable  deviation 
in  location  from  the  center  point  can  be  tolerated  without 
losing  much  accuracy,  still  there  is  usually  no  reason  not  to 
pick  the  center  point,  so  this  practice  is  recommended. 

At  this  time,  no  studies  have  been  made  with  regard  to 
aspect  ratios,  and  particularly,  what  is  a practical  upper  bound 
on  aspect  ratio.  No  problem  is  anticipated,  due  to  the  iso- 
parametric formulation.  It  is  known  that  no  element  side  should 
not  have  too  severe  curvature.  A 30°  arc  seems  to  be  a good 
upper  limit. 

L00F8  elements  are  preferred  over  L00F6  triangle  elements 
where  the  geometry  permits . Two  triangles  would  have  five  more 
degrees  of  freedom  than  a L00F8  element  covering  the  same  area, 
and  probably  less  accuracy. 

A special  feature  of  L00F8  and  L00F6  is  their  accommodation 
of  variation  of  element  thickness  and/or  surface  pressure  over 
the  surface  of  any  element.  In  these  cases,  thicknesses  and/or 
pressures  are  assigned  to  grid  points,  and  the  grid  point  values 
are  interpolated  over  the  element  surface.  For  constant  thick- 
ness elements,  thicknesses  are  assigned  on  element  connection 
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cards,  and  these  values  override  any  grid  point  thickness  values. 
Variation  of  pressure  would  be  useful  for  representing 
hydrostatic  or  hydrodynamic  fluid  pressures,  for  example. 

L00F8  and  L00F6  can  reference  isotropic  and  orthotropic 
material  properties.  In  addition,  there  is  a provision  that 
is  useful  in  modeling  minor  stiffening  ribs  in  airframe 
structures.  The  most  economical  and  realistic  strategy  in  these 
cases  is  to  "smear"  the  minor  ribs,  that  is,  to  distribute  their 
stiffness  to  the  attached  panel.  This  is  done  by  calculating 
properties  for  an  anisotropic  panel  that  has  the  same  stretching 
and  bending  stiffnesses  as  the  panel-rib  assemblage.  This 
approach  will,  of  course,  not  provide  accurate  local  represen- 
tation of  deformations  but  should  be  a good  overall  model.  The 
following  formulas  taken  from  Reference  [31]  may  be  useful  in 
such  cases : 
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Here  A^ ^ , B^j , and  are  force-strain  parameters  coupling 
force  and  moment  resultants  to  strains  and  curvatures: 
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In  these  expressions,  subscripts  1 and  2 represent  two  ortho- 
gonal directions.  The  beam  properties  referenced  in  Eq.  (A.l) 
are 

I.  = moment  of  inertia  of  a rib  about  its  own  center  of 
1 gravity 

A.  = area 
i 

b^  = spacing  of  ribs 
C.  = eccentricity 

J.  = torsion  constant  of  a single  rib 
i 

Also, 

E,v  = material  properties  of  both  ribs  and  panel 
t = panel  thickness 

Figure  A-l  illustrates  these  properties 


Figure  A-l  Stiffened  Panel  Properties 

It  is  important  to  get  the  signs  of  the  B terms  right. 

They  are  positive  if  the  stiffeners  are  located  on  the  positive 
side  of  the  element;  negative  otherwise.  The  positive  side  is 
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determined  by  taking  the  cross  product  of  unit  vectors  in  the 
£ and  n directions  (e.g.  x , see  Figure  A-2).  The 

resulting  vector  points  outward  on  the  positive  side  of  the 
element.  An  equivalent  indicator  is  to  proceed  around  the 
perimeter  of  the  element  in  the  sequence  prescribed  on  the  CLOOF 
card  and  use  the  right-hand  rule. 


Figure  A-2  Local  Coordinates  for  LOOF8  and  L00F6  Elements 

The  L00F3  curved  beam  element  can  represent  non-prismatic 
beams.  In  this  case,  cross-section  properties  are  prescribed 
at  each  node  point  and  are  interpolated  quadratically  over  the 
length  of  the  element. 

The  following  items  are  not  incorporated  in  the  Semi-Loof 
elements  at  this  time: 

(1)  Geometric  stiffness 

(2)  Thermal  loads 

(3)  Heat  transfer  matrices 

(4)  Line  loads 
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Two  computer  programs  have  been  written  to  interface  Semi- 
Loof  to  NASTRAN:  PRELOOF  and  POSTLOOF.  PRELOOF  reads  the  bulk 
data  deck  and  interprets  certain  bulk  data  cards  that  describe 
Semi-Loof  elements.  It  also  recognizes  GRID  cards  and  certain 
other  bulk  data  cards.  It  then  generates  and  assembles  stiff- 
ness matrices,  mass  matrices,  and  distributed  loads  and  writes 
them  on  a binary  file  in  a form  suitable  for  input  to  NASTRAN. 

The  data  cards,  with  Semi-Loof  connection  and  property  cards 
deleted,  are  then  passed  to  NASTRAN.  NASTRAN  then  saves  output 
information  in  a form  that  can  be  read  by  POSTLOOF  which 
recovers  angular  deformations  or  stresses  as  requested  by  the 
user. 

Most  of  this  process  of  transferring  files  into  and  out 
of  NASTRAN  has  been  automated  by  means  of  control  card  proce- 
dures and  DMAP  Alters,  and  can  be  set  up  by  the  user  with  a 
minimum  knowledge  of  computer  control  details.  As  mentioned 
earlier,  a moderate  amount  of  experience  with  NASTRAN  is  assumed, 
however.  The  following  sections  describe  the  steps  required 
to  use  PRELOOF  and  POSTLOOF. 
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A. 3 PRELOOF  INPUT 

Input  to  PRELOOF  consists  of  a complete  NASTRAN  input  file: 
Executive  Control,  Case  Control,  and  Bulk  Data.  This  file  is 
read  by  PRELOOF,  modified,  and  then  passed  on  to  NASTRAN  for 
execution.  Some  of  the  data  cards  are  recognized  by  PRELOOF 
and  then  removed  from  the  deck,  some  are  recognized  and  retained 
and  others  are  passed  directly  to  NASTRAN  without  any  processing 
These  cards  are  described  below  and  summarized  in  Table  A-1. 

The  UPDATE  utility  is  used  to  manipulate  the  input  deck, 
so  the  first  card  must  always  be 

*DECK  X 

which  is  immediately  followed  by  a title  card.  Then  begins  the 
Executive  Control  Deck,  which  contains  the  cards  ID,  TIME,  APP , 
SOL,  DIAG,  etc.?  as  in  a normal  NASTRAN  run.  Next  there  is 
provision  for  a number  of  options  which  govern  PRELOOF.  These 
are  listed  below,  with  the  default  option  underlined: 

If  yes,  echo  bulk  data  deck  as  read. 


If  yes,  generate  PLOTEL  cards  representing 
L00F8  and  L00F6  elements.  The  PLOTEL 
element  numbers  are  10*N+i  where  N is  the 
LOOF  element  number  and  i ranges  from  1 to 
8 for  L00F8  or  1 to  6 for  L00F6. 

If  yes,  generate  matrices  for  NASTRAN.  If 
no,  process  bulk  data  but  do  not  generate 
matrices  (e.g.  for  plots  or  debug). 

If  yes,  generate  mass  matrix  for  dynamics 
problem.  If  no,  generate  stiffness  but  not 
mass  matrix. 

If  yes,  print  out  element  matrices  for 
diagnosis . 

Selects  either  MSC/NASTRAN  or  COSMIC  NASTRAN 
Default  set  to  correspond  to  each  particular 
installation. 

Integration  rule:  2 means  2x2,  3 means  3x3 
integration. 


$LOOFECHO 

$LOOFPLOT 


JYESl 

ml 

JyesI 

INO  | 


$LOOFMAT 


JYESl 

Jno 


$LOOFDYN 


J YES  I 
)N0 


JFDEBUG 

;TRAN  {cosmic} 


$LOOFGAUSS  <-|> 
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$LOOFFACT 


Sets  a factor  to  be  used  for  a fifth  point 
in  2x2  integration.  0.2  is  a recommended 
value  for  x when  this  option  is  used. 


Following  the  $ option  cards,  the  following  must  be  included 
to  access  rigid  format  alters: 

*READ  RFALTS 
followed  by 

ENDALTER 

CEND 

the  end  of  the  executive  control  deck. 

Next  is  the  case  control,  which  is  the  same  as  for  any 
NASTRAN  run  with  the  following  exception:  when  pressure  loads 
are  generated  by  PRELOOF  there  must  not  be  any  LOAD  cards  in 
the  case  control  deck.  This  implies  only  a single  load  case. 

The  bulk  data  deck  is  somewhat  restricted  in  format  as 
compared  with  normal  NASTRAN  capabilities  which  the  reader  is 
assumed  to  know.  The  following  rules  apply: 

(1)  The  first  field  of  each  card  must  be  left-adjusted. 

(2)  Among  the  cards  recognized  by  PRELOOF  (listed  below), 
continuation  cards  must  immediately  follow  their  parents.  Also, 
among  these  cards,  only  GRID  may  use  the  double  field  option 
(i.e.  GRID*). 

(3)  The  bulk  data  cards  must  be  sorted  into  groups,  with 
groups  in  the  order  listed  below.  Within  each  group,  cards  may 
be  in  any  order  as  long  as  continuation  cards  immediately  follow 
their  parents. 

Group  1:  C0RD2R,  C0RD2C,  and  C0RD2S  cards.  These  cards 
must  reference  the  basic  coordinate  system  in  field  3. 

Group  2:  GRID  cards  (the  double  field  GRID*  may  also  be 
used).  Only  coordinate  systems  defined  in  group  1 (or  the  basic 
system)  may  be  used.  Permanent  single-point  constraints  must 
not  be  used.  They  are  established  by  PRELOOF. 

Group  3 : SEQGP  cards . The  BANDIT  bandwidth  optimization 
code  has  been  modified  to  recognize  CL00F8,  CL00F6,  and  CL00F3 

cards . 


230 


Group  4:  CL00F8  and  CL00F6  element  connection  cards  for 
quadrilateral  and  triangular  Semi-Loof  elements,  respectively. 
These  cards  are  described  in  detail  on  pages  235  through  238. 

Group  5:  CL00F3  element  connection  cards  for  curved  beam 
elements.  See  page  232  for  format. 

Group  6:  PLOOF  cards  giving  properties  of  isotropic  L00F8 
and  L00F6  elements.  See  page  241. 

Group  7 : PLOOFX  cards  giving  properties  for  anisotropic 
L00F8  and  L00F6  elements.  See  page  243. 

Group  8:  PL00F3  cards  giving  properties  for  LOOF3  elements 
See  page  242. 

Group  9:  MAT1  cards.  As  per  the  NASTRAN  manual. 

Group  10:  MAT8  cards  for  homogeneous  orthotropic  shells 
(for  smeared  stiffeners  see  PLOOFX).  See  page  239. 

Group  11:  PL0AD4  cards  defining  pressures  at  grid  points. 
See  page  240. 

Group  12:  THLOOF  cards  defining  thicknesses  at  grid  points 
See  page  245. 

Group  13:  PARAM  cards.  Only  PARAM  WTMASS,  which  has  the 
same  function  as  in  standard  NASTRAN  runs,  is  used. 

Group  14:  SPOINT  cards.  Scalar  point  identification 
numbers  must  be  greater  than  the  highest  grid  point  number. 

Following  these  cards,  all  bulk  data  cards  not  processed 
by  PRELOOF  are  included.  See  Table  A-l  for  a summary  of  the 
foregoing. 
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TABLE  A-l 

SUMMARY  OF  PRELOOF  INPUT  DECK 


*DECK  X 
title  card 


ID 

TIME 

APP 

SOL 

DIAG 


Executive 
Control 
De  ck 


$LOOF  options 
*READ  RFALTS 
ENDALTER 
CEND 


TITLE  = Case 

. Control 

. Deck 

BEGIN  BULK 


C0RD2R , C0RD2C , C0RD2S  Bulk 

GRID  Data 

SEQGP  Deck 

CL00F8 , CL00F6 

CL00F3 

PLOOF 

PLOOFX 

PL00F3 

MAT1 

MAT  8 

PL0AD4 

THLOOF 

PARAM 

SPOINT 

other  Bulk  Data  Cards 
ENDDATA 
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BULK  DATA  DECK 


Input  Data  Card  CL00F3  Connections  for  L00F3  Curved 

Beam  Element 

Description:  Defines  a Semi-Loof  beam  element  of  the 

structural  model. 


Format  and  Example : 

1 2 3 4 


10 


CL00F3 

EID 

MID 

Gl 

G2 

G3 

PI 

P2 

P3 

abc 

CL00F3 

1401 

1 

502 

502 

503 

7 

ABC 

+bc 

FI, GO 

F2 

F3 

F 

def 

+ BC 

0. 

1. 

0. 

1 

DEF 

+ ef 

A1 

B1 

A2 

B2 

A3 

B3 

+EF 

-0.2 

Field 

EID 

MID 

Gl, 

G2, 

G3 

PI, 

P2  , 

P3 

FI, 

F2, 

F3 

GO 


Contents 


Element  identification  number  (Integer  > 0). 

Identification  number  of  a MAT1  material 
card  (Integer  > 0). 

Grid  point  identification  numbers  of  connection 
points  (Integer  > 0,  G1  i G2  t G3) 

Identification  numbers  of  PL00F3  cards  defining 
section  properties  at  G1 , G2  and  G3 , respectively. 

Components  of  vector  $ at  the  end  of  the  beam 
corresponding  to  grid  point  Gl.  together 

with  the  vector  from  Gl  to  G3,  define  the  principal 
bending  plane  of  the  element.  (Straight  beams  only). 

Grid  point  identification  number  to  optionally 
define  V as  the  vector  from  Gl  to  GO. 


F 


Flag  to  specify  the  nature  of  fields  2,  3,  4 on 
the  first  continuation  card  as  follows: 


2 3 4 


F=1 

FI 

F2 

F3 

F=2 

GO 

blank 

blank 
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BULK  DATA  DECK 
CL00F3  (Continued) 


Al,  A2 , A3  Offset  distance  of  grid  point  Gl,  G2,  or  G3 
respectively,  in  plane  1.  Positive  if  the 
sense  of  Ai  is  the  same  as  the  sense  of  X9 
sketch  below).  ^ 

Bl,  B2 , B3  Offset  distance  of  grid  point  Gl , G2,  or  G3 
respectively,  in  plane  2.  Positive  if  the 
sense  of  Bi  is  the  same  as  the  sense  of 
(see  sketch  below)  ^ 


*G1 


Straight  Beam 


Curved  Beam 


( see 
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BULK  DATA  DECK 
CL00F3  (Continued) 

Remarks:  1.  Element  identification  numbers  must  be  unique 

with  respect  to  all  other  element  identifica- 
tion numbers. 


2.  The  center  node  G2  should  be  located  near  the 
center  of  the  arc  connection  G1  to  G3. 

3.  The  continuation  cards  are  optional. 

4.  Degrees  of  freedom  4 and  5 at  node  G2  represent 
Loof  rotations  and  are  not  the  grid  point  rotations 
normally  used  by  NASTRAN. 

5.  The  vector  ^ is  used  only  for  straight  beams. 

For  curved  beams,  the  principal  plane  is  always 
the  plane  in  which  the  curved  beam  lies.  The 
principal  plane  is  plane  1,  corresponding  to  II, 

Cl  and  D1  on  the  PL00F3  card.  Plane  2 corres- 
ponds to  12,  C2  and  D2. 
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BULK  DATA  DECK 


Input  Data  Card  CL00F6  Connections  for  L00F6  Element 

Description ; Defines  a triangular  Semi-Loof  shell  ele- 
ment of  the  structural  model. 


Format  and  Example: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

CL00F6 

EID 

PID 

G1 

G2 

G3 

G4 

G5 

G6 

abc 

CL00F6 

107 

43 

2 

4 

5 

7 

12 

9 

ABC 

+bc 

TH 

+ BC 

-14.0 

Field 

EID 

PID 

G1 j . • • 5 G6 


Contents 

Element  identification  number  (Integer  > 0) 

Identification  number  of  a PLOOF  property  card 
(Integer  > 0) 

Grid  point  numbers  of  connection  points  (Integer 
> 0,  G1  i G2  t ...  i G6 ) 


TH  Material  property  orientation  angle  in  degrees 

(Real).  The  sketch  below  gives  the  sign  con- 
version for  TH. 


G3 


Remarks : 1.  Element  identification  numbers  must  be  unique 
with  respect  to  all  other  element  identifica- 
tion numbers. 

2 . Grid  points  G1  through  G6  must  be  numbered  con- 
secutively around  the  perimeter  of  the  element. 
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BULK  DATA  DECK 
CL00F6  (Continued) 


3.  All  interior  angles  must  be  less  than  180°. 

4.  The  Loof  nodes  G2,  G4  and  G6  should  be  located 
near  the  center  of  the  arc  connecting  the  re- 
spective corner  points. 

5.  The  continuation  card  is  optional. 

6.  Degrees  of  freedom  4 and  5 at  the  Loof  nodes 
represent  Loof  rotations  and  not  the  grid  point 
rotations  normally  used  by  NASTRAN. 
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BULK  DATA  DECK 


Input  Data  Card  CL00F8  Connections  for  L00F8  Element 

Description : Defines  a quadrilateral  Semi-Loof  shell 

element  of  the  structural  model. 


Format  and  Example: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

CL00F8 

EID 

PID 

G1 

G2 

G3 

G4 

G5 

G6 

abc 

CL00F8 

16 

101 

104 

105 

106 

109 

110 

112 

ABC 

+ bc 

G7 

G8 

TH 

+ BC 

114 

102 

Field 


Contents 


EID 

PID 


Element  identification  number  (Integer  > 0) 

Identification  number  of  a PLOOF  or  PLOOFX  property 
card  (Integer  > 0) 


G1,...,G8  Grid  point  identification  numbers  of  connection 
points  (Integer  > 0 , G1  i G2  i ...  i G8) 


TH 


Material  property  orientation  angle  in  degrees  (Real). 
The  sketch  below  gives  the  sign  conversion  for  TH. 


Remarks : 1.  Element  identification  numbers  must  be  unique 
with  respect  to  all  other  element  identifica- 
tion numbers . 


2 . Grid  points  G1  through  G8  must  be  numbered 
consecutively  around  the  perimeter  of  the  element. 

3.  All  interior  angles  must  be  less  than  180°. 
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BULK  DATA  DECK 
CL00F8  (Continued) 


4.  Loof  nodes  G2  , G4 , G6  and  G8  should  lie  near  the 
mid  point  of  the  arc  connecting  the  respective 
corner  points. 

5.  Degrees  of  freedom  4 and  5 at  the  Loof  nodes 
represent  Loof  rotations  and  not  the  grid  point 
rotations  normally  used  by  NASTRAN. 
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BULK  DATA  DECK 


Input  Data  Card  MAT 8 Material  Property  Definition,  Form  8 

Description:  Defines  the  material  properties  for  linear, 

temperature-independent,  orthotropic  materials. 


Format  and  Example: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

MAT  8 

MID 

Ell 

E12 

E22 

G 

RHO 

X 

MAT  8 

1 

10. 2E6 

3.2E6 

8.2E6 

4.1E6 

0.2E-6 

Field 


Contents 


MID 


Material  identification  number  (Integer  > 0) 


EH  \ Elements  of  stress-strain  matrix 

E12  \ 

E22  / 

G 


RHO 


Mass  density 
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BULK  DATA  DECK 


Input  Data  Card  PL0AD4  Distributed  Loads  for  L00F8  and  L00F6 

Elements 

Description:  Specifies  distributed  pressure  loads  by  grid 

points.  All  L00F8  and  L00F6  elements  connected 
to  these  grids  have  these  loads  applied. 

Format  and  Example : 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

PL0AD4 

P 

G1 

G2 

G3 

G4 

G5 

G6 

G7 

PL0AD4 

1 

O 

17 

18 

22 

Field  Contents 

P Pressure  value  (Real) 

G1  ,G2  , . . .?  Grid  point  numbers  (Integer  > 0) 
GA,  GB  ) 


Remarks : 1.  There  is  no  set  identification  number. 

Distributed  loads  on  LOOF  elements  are  not 
selected  in  the  Case  Control  Deck. 

2.  In  the  alternate  form,  all  grid  points  from  GA 
through  GB  are  given  the  specified  load. 
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BULK  DATA  DECK 


Input  Data  Card  PLOOF  Properties  of  L00F8  Element 

Description:  Defines  the  properties  of  a Semi-Loof  shell 

element.  Referenced  by  CL00F8  and  CL00F6 
cards . 

Format  and  Example : 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

PLOOF 

PID 

MID 

THICK 

PLOOF 

2 

1 

Field 


Contents 


PID  Property  identification  number  (Integer  > 0) 

MID  Material  identification  number  of  a MAT1  or  MAT8 

card  (Integer  >0) 

THICK  Element  thickness  (Real) 


Remarks:  1. 


If  THICK  is  omitted,  thicknesses  will  be 
taken  from  THLOOF  cards . 
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BULK  DATA  DECK 


Input  Data  Card  PL00F3  Properties  of  a Semi-Loof  Beam 

Element 

Description : Defines  the  cross-sectional  properties  at  one 

or  more  node  points  of  a Semi-Loof  curved 
beam  element. 


Format  and  Example : 

1 23  4 5 6789  10 


PL00F3 

PID 

A 

11 

12 

J 

Cl 

C2 

Dl 

abc 

PL00F3 

7 

0.02 

0.113 

0.113 

0.067 

0.5 

-0.5 

+ XY 

+bc 

D2 

+ XY 

Field 

PID 

A 

II,  12 
J 

Cl,  C2 , Dl,  D2 


Contents 

Property  identification  number  (Integer  > 0) 
Cross-sectional  area  (Real  > 0) 

Moments  of  inertia  (Real) 

Torsion  constant  (Real) 

Stress  recovery  coefficients  (Real) 


Remarks:  1.  The  stress  recovery  coefficients  are  the  local 

coordinates  defining  fiber  distances  for  which 
stresses  may  be  recovered. 

2.  The  continuation  card  is  optional. 
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BULK  DATA  DECK 


Input  Data  Card  PLOOFX  Orthotropic  Membrane , Bending  and 

Coupling  Properties  for  L00F8  and 
L00F6  Elements 

Description:  Specifies  a general  force-strain  law  for  a L00F8 

or  L00F6  element  in  matrix  form. 


Format  and  Example : 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

PLOOFX 

PID 

All 

A12 

A13 

A22 

A23 

A33 

X 

abc 

PLOOFX 

10.2E6 

4.1E6 

7.6E6 

3.  3E6 

ABC 

+bc 

DENS 

Bll 

B12 

B13 

B22 

B23 

B33 

X 

def 

+ BC 

0.06 

DEF 

+ ef 

Dll 

D12 

D13 

D22 

D23 

D33 

X 

DEF 

5. 2E6 

0.9E6 

3. 2E6 

1.8E6 

Field  Contents 


PID  Property  identification  number  (Integer  > 0) 

A..  I Matrices  defining  the  force-strain  law  for  the  element 

1-1  l as  follows  : 

lj  ( 

D.  . 


✓ \ 

N1 

N2 

N12 

\ - 

A11 

A12 

A13 

A12 
A22 
A2  3 

1 

1 

CO  CO  CO 

rH  CN  <D 

< < < 

B11 

B12 

B13 

B12 

B22 

B23 

B13_ 

B23 

B33 

ei 
£ 2 
Y12 

\ 

| 

< 

Mi 

B11 

B12 

B13  ! 

D11 

D12 

D13 

X1 

M2 

B12 

B22 

B23  ! 

D12 

D22 

D23 

X2 

M12 

x 

B13 

B2  3 

B33  : 

D13 

D23 

D33 

Xi2 

— ; 
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BULK  DATA  DECK 


DENS 

Remarks : 


PLOOFX  (continued) 

N^,  N2,  and  N12  are  in- plane  force  resultants  and 
G^,  G 2 j and  y12  are  corresponding  in- plane  strains. 
M^,  M2 , and  M^2  are  moment  resultants,  and  x^»  X2» 
and  x-^2  are  corresponding  curvatures. 

Effective  mass  per  unit  area  for  the  shell 

1.  No  material  property  card  is  referenced  since 
material  properties  are  implicit  in  the  matrices 
A,  B,  D,  and  DENS. 

2.  The  continuation  cards  may  be  omitted  if  no 
bending  or  coupling  terms  are  desired. 
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BULK  DATA  DECK 


Input  Data  Card  THLOOF  Grid-point  Thicknesses 

Description:  Associates  thicknesses  with  grid  points  for 

use  by  Semi-Loof  shell  elements. 

Format  and  Example : 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

THLOOF 

TH 

GID 

GID 

GID 

GID 

GID 

GID 

GID 

THLOOF 

0 .07 

4 

7 

6 

Alternate  form: 


THLOOF 

TH 

GID1 

"THRU" 

GID2 

THLOOF 

0.2 

16 

THRU 

48 

Field 

Contents 

TH 

Thickness  (Real  > 0) 

GID  ] 

GID1 } 

Grid-point  identification 

number  (Integer  > 0, 

GID2J 

GID1  < GID2 ) 

Remarks : 

1.  GID  must  be  0 or  blank  for  omitted  entries. 

2.  At  least  one  positive 

GID  must  be  present  on 

each  THLOOF  card. 
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A. 4 POSTLOOF  INPUT 


The  POSTLOOF  code  serves  to  recover  two  kinds  of  informa- 
tion from  solution  vectors  generated  by  NASTRAN:  rotations  and 
stresses.  The  solution  vectors  may  be  static  displacements, 
eigenvectors,  transient  or  frequency  response  vectors.  If  the 
NASTRAN  output  file  contains  more  than  one  solution  vector, 
information  is  recovered  and  printed  successively  for  each 
vector. 

The  reason  for  recovering  rotations  in  POSTLOOF  is  that 
node  point  rotations  are  not  independent  degrees  of  freedom 
with  Semi-Loof  shell  elements,  yet  they  may  be  of  interest. 
Furthermore,  rotations  at  arbitrary  locations  may  be  of  interest, 
and  these  may  be  recovered  as  well.  At  node  points,  rotations 
are  discontinuous  between  elements.  The  approach  used  for  node 
points  is  to  average  the  values  indicated  by  all  the  elements 
that  touch  a given  node  point,  except  that  when  a L00F3  beam 
element  defines  a rotation  at  a grid  point,  that  value  is  used. 

Stresses,  if  requested,  are  output  at  Gauss  points  only, 
which  are  optimal  for  stress  calculations. 

Input  to  POSTLOOF  is  as  follows  with  default  options 

Default  set  for  each  installation. 

Where  "NONE"  suppresses  recovery  of 
rotations,  "GRIDS"  causes  recovery  at  all 
grid  points,  and  n is  an  integer  indicating 
that  rotations  are  requested  at  n specific 
locations,  listed  on  n data  cards 
immediately  following. 

locations:  (LOOFROT  n option) 

where  jik  is  an  element  number,  and 

are  local  coordinates  for  that  element 

(-1  < £.,n.  < 1 for  L00F8,  0 < £.,ri.  < 1 
l x i i - 

for  L00F6).  See  Figure  A-7  for  local 

coordinates . 


I 


.‘NASTRAN 


NONE 

$ LOOFROT  <GRID$ 

In 


Rotation  recovery 


Col. 

1-5 


6-15  16-25 


m. 


m. 


h 


nl 

n2 


Where  "NONE"  suppresses  recovery  of  stresses 
"ALL"  causes  recovery  for  all  elements,  and 
n is  an  integer  indicating  that  stresses 
are  desired  for  n specific  elements,  listed 
on  following  data  cards. 

Stress  recovery  elements:  ($LOOFSTRESS  n option) 

Col. 

1-5  Where  m.  is  a L00F8  or  L00F6  element  number. 

1 


[none] 

$LOOFSTRESS  < ALL  > 

1R  I 


POSTLOOF  can  easily  be  tailored  by  the  user- programmer  for 
specific  requirements.  A POSTLOOF  listing  appears  in  Appendix  B 
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A. 5 DECK  SETUP 

A complete  Semi-Loof  analysis  consists  of  three  major  steps 
PRELOOF,  NASTRAN,  and  POSTLOOF.  In  order  to  relieve  the  user 
of  the  burden  of  operating  system  details , control  card  proce- 
dures ("procs")  have  been  set  up  so  that  each  step  can  be  called 
by  a single  control  card: 


BEGIN (PRE, LOOF) 

NASTRAN ( DATA ) ATTACH 
BEGIN(POST ,LOOF) 

Proc  "PRE"  uses  the  UPDATE  utility  to  fetch  the  DMAP  alter 
package  required  by  the  user  and  insert  it  into  the  user's  deck. 
PRELOOF  is  executed,  and  the  NASTRAN  program  file  is  attached. 
Proc  "POST"  reads  input  and  executes  POSTLOOF. 

DMAP  alter  packages  are  maintained  in  an  UPDATE  program 
library,  which  is  automatically  accessed  by  PRE.  There  are  two 
alter  packages  for  each  rigid  format  (currently  RF  1,  3,  11, 

24,  and  25  are  supported):  one  for  preprocessing  and  one  for 
postprocessing.  Deck  names  for  each  DMAP  sequence  are  formed 
by  concatenating  the  letters  RF,  the  rigid  format  number,  and 
either  PRE  or  POST,  e.g.  RF3PRE  or  RF25POST.  Each  run  will  use 
an  RFxxPRE  sequence,  an  RFxxPOST  sequence,  or  both.  They  are 
listed  on  an  UPDATE  *C  card  followed  by  an  end-of- record  card 
(7/8/9) . 

Finally,  PRE  attaches  the  NASTRAN  program  file.  Thus,  a 
complete  deck  setup  for  a run  including  all  three  processing 
steps  would  have  the  following  form  (assume  rigid  format  3 is 
being  run) : 


Cards (s) 


Remarks 


job  card,  account  cards 
ATTACH ( LOO  F , I D=  xxxx ) 


BEGIN ( PRE, LOOF) 
RFL(xxxxxx) 

NASTRAN (DATA) ATTACH 
BEGIN (POST, LOOF) 
7/8/9 

*C  RF3PRE , RF3P0ST 


Follow  installation  rules. 

Attach  proc  file  using  ID 
specified  for  a particular 
installation. 

Assemble  input  and  execute  PRELOOF 
Request  appropriate  field  length 
for  NASTRAN. 

Execute  NASTRAN. 

Execute  POSTLOOF. 

Fetch  DMAP  alter  sequences. 
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Card(s ) 

7/8/9 
*DECK  X 

Remarks 

• 

PRELOOF  input  as 

explained  in 

• 

Section  A. 3 . 

7/8/9 

# 

P0STL00F  input  as 

explained  in 

6/7/8/9 

Section  A . 4 . 

Many  users  like  to  maintain  large  data  decks  in  UPDATE 
program  libraries.  To  accommodate  this  feature,  PRE  checks  for 
the  presence  of  a file  named  OLDPL  and  if  one  is  present,  it 
makes  corrections  to  decks  on  that  file  using  correction  cards 
supplied  by  the  user.  In  this  case,  a card  such  as 

ATTACH ( OLDPL , MYSEMILOOFDECK , ID=xxxx ) 

would  precede  BEGIN(PRE ,L00F)  and  the  input  record  for  PRELOOF 
would  consist  of  UPDATE  corrections  such  as 

*ID  FIXMYDECK 
*1  EXEC. 10 
* READ  RFALTS 
*D  BULK. 200 
PARAM  WTMASS  .00259 
7/8/9 

For  large  problems,  the  user  may  desire  to  rerun  NASTRAN 
without  rerunning  PRELOOF,  or  to  rerun  P0STL00F  without 
rerunning  NASTRAN.  To  do  this,  the  user  must  know  what  files 
are  passed  from  one  step  to  the  next.  Four  files  are  involved: 

File  Remarks 

UT1  Contains  stiffness  matrices,  mass  matrices,  and 

load  vectors.  Written  by  PRELOOF  and  read  by 
NASTRAN.  Binary  format. 

DATA  NASTRAN  data  deck  after  modification  by  PRELOOF. 

Written  by  PRELOOF  and  read  by  NASTRAN.  Card 
image  format. 

LSTRES  Stress  matrices  and  element  connection  tables. 

Written  by  PRELOOF  and  read  by  P0STL00F.  Binary 
f ormat . 
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File 


Remarks 


UT2  Solution  vector(s).  Written  by  NASTRAN  and  read 

by  POSTLOOF.  Binary  format. 

Figure  A- 3 shows  how  these  files  pass  information  from  PRELOOF 
to  NASTRAN  to  POSTLOOF. 

In  running  restart  cases  one  must  know  what  information 
must  be  regenerated  and  what  information  can  be  salvaged  from 
previous  runs.  If  any  structural  data  changes,  PRELOOF  must 
be  rerun  and  UT1  and  DATA  regenerated.  Proc  PRE  checks  for  the 
presence  of  UT1  and  if  present,  skips  PRELOOF  execution  and 
just  does  UPDATE  processing  and  attaches  NASTRAN.  If  the 
NASTRAN  restart  facility  is  to  be  used,  involving  problem  tapes 
and  checkpoint  dictionaries,  one  needs  to  know  whether  the  rigid 
format  will  be  restarted  before  or  after  the  point  at  which  UT1 
is  read  in.  If  before,  UT1  must  either  be  generated  or 
recovered  from  a previous  run  before  executing  NASTRAN.  If 
after,  UT1  is  omitted,  and  the  DMAP  sequence  used  to  read  UT1 
(i.e.  RFxxPRE)  is  also  omitted. 

Now  consider  a sequence  of  runs  for  a large  problem. 

Assume  that  input  data  is  maintained  on  an  UPDATE  program 
library  with  deck  names  EXEC,  CASE,  and  BULK,  and  that  the 
following  sequence  of  runs  is  executed: 

1.  Check  out  data  and  plot  the  undeformed  structure. 

2.  Run  static  load  check  case. 

3.  Run  dynamic  case  using  NASTRAN  checkpoint  facility. 

4.  Restart  NASTRAN  without  rerunning  PRELOOF,  save  output 
from  NASTRAN,  then  run  POSTLOOF. 

5.  Rerun  POSTLOOF. 

The  deck  setups  would  be  as  follows : 
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Figure  A-3  Flow  of  Control  from  PRELOOF  to  NASTRAN  to 
POSTLOOF 
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Run  1:  Data  Check  and  Plot 


Card ( s ) 


Remarks 


job  card,  account  card 
ATTACH (LOOF,ID=xxxx) 

ATTACH ( OLDPL , BI GPRO  BLEM , I D= . . . ) 
BEGIN ( PRE ,LOOF) 

RFLU60000) 

NAS  TRAN ( DATA ) ATTACH 
(plot  control  cards) 

7/8/9 


7/8/9 
*ID  FIXES 
*1  EXEC. 10 
$L00FMAT  NO 
$L00FPL0T  YES 
ALTER  23 
EXIT$ 

*1  CASE. 10 
OUTPUT (PLOT) 


Null  input  record  for  UPDATE. 

No  DMAP  sequences  used  since 
execution  will  halt  right  after 
plot  generation. 


Suppress  matrix  generation. 
Generate  PLOTEL  cards . 

Stop  rigid  format  after  plots. 


Plot  commands . 


• 

*C  EXEC, CASE, BULK 
6/7/8/9 

Run  2:  Static  Test  Case  (Rigid  Format  1) 


job  card,  account  card 
ATTACH (L00F,ID=xxxx) 

ATTACH (OLDPL , BIGPROBLEM , ID=  . . . ) 

BEGIN(PRE ,L00F) 

RFL(160000 ) 

NAST  RAN ( DATA ) ATTACH 
7/8/9 

*C  RF1PRE  Get  DMAP  sequence  for  rigid  format 

1 preprocessing. 

7/8/9 
*ID  FIXES 
*1  EXEC. 10 

*READ  RFALTS  Get  DMAP  sequence. 

• Other  changes  as  needed. 


*C  EXEC, CASE, BULK 
6/7/ 8/9 
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Run  3 : Dynamic  Run 

Save  PRELOOF  output  on  tape,  NASTRAN  NPTP  on  tape,  and 
checkpoint  dictionary  on  permanent  file. 

Card(s)  Remarks 


job  card,  account  card 
ATTACH ( LOOF , I D=  xxxx ) 

ATTACH(OLDPL, BIGPROBLEM ,ID= . . . ) 
BEGIN(PRE,LOOF) 

LABEL ( SAVE , L=SAVEPRELOOF , VSN=xxx) 
COPY (UT1, SAVE) 

COPY ( LSTRES ,SAVE) 

REWIND(UTl) 

RETURN ( LSTRES , SAVE ) 

REQUEST ( CHKPNT , *PF) 

LABEL ( NPTP, W, L=NPTP , VSN=xxx) 

RFL( 240000 ) 

NASTRAN (DATA, , CHKPNT) ATTACH 


CATALOG ( CHKPNT , MYDICT , ID=xxxx) 
7/8/9 

*C  RF3PRE , RF3P0ST 
7/8/9 
*ID  FIXES 
*D  EXEC. 6 
SOL  3.0 
CHKPNT  YES 
*1  EXEC. 10 
*READ  RFALTS 


Tape  to  save  UT1. 
Save  UT1  and  LSTRES. 


Permanent  file  for  checkpoint 
dictionary . 

New  problem  tape. 

Punch  output  (checkpoint 
dictionary)  routed  to  file 
CHKPNT. 


Switch  to  rigid  format  3. 


Other  changes  as  needed. 


*C  EXEC, CASE, BULK 
6/7/8/9 


Run  4:  Restart  NASTRAN,  Execute  P0STL00F 


Card(s ) 


Remarks 


job  card,  account  card 

ATTACH ( RESTART , MYDICT , ID=xxxx)  Get  checkpoint  dictionary 

and  old  problem  tape. 

LABEL (OPTP , R,L, VSN=xxx) 

ATTACH (OLDPL, BIGPROBLEM, ID=xxx) 

UPDATE (Q , D, 8 , C = DATA, L=  0 ) Use  UPDATE  to  set  up  DATA 

file. 

LABEL (SAVE ,W, L=SAVEUT2 , VSN=xxx)  Tape  to  save  file  UT2 . 
COPY (UT2, SAVE) 
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Card( s ) 


Remarks 


REWIND(UT2 ) 
RETURN (SAVE) 
BEGINCPOST ,LOOF) 
7/8/9 

*C  RF3P0ST 
7/8/9 
*IC  FIXES 
*D  EXEC. 6 


SOL  3,0 
*READ  RESTART 
*1  EXEC. 10 
*READ  RFALTS 

Insert  checkpoint  dictionary 

• 

• 

Other  changes  as  needed. 

• 

*1  CASE. 15 

BEGIN  BULK 

Do  not  retrieve  bulk  data 
from  OLDPL.  Insert  bulk 
data  additions  and  correc- 
tions after  Case  Control 

Deck . 

• 

• 

ENDDATA 

7/8/9 

$LOOFROT  ALL 

• 

• 

POSTLOOF  input . 

6/7/8/9 

Run  5:  Rerun  POSTLOOF 

job  card,  account  card 

LABEL ( SAVE 1 , R , L=SAVEPRELOOF , VSN=xxx) 


SKIPF(SAVE1 ,1,17) 

COPY ( SAVE1 , LSTRES ) 

RETURN (SAVE) 

Skip  UT1 . 

Recover  LSTRES. 

REWIND(LSTRES) 

LABELCSAVE2 ,R ,L=SAVEUT2 , VSN=xxx)  Recover  UT2 . 

COPY (SAVE 2, UT 2) 

RETURN (SAVE2) 

REWIND (UT 2) 

BEGIN ( POST , LOO F) 


7/8/9 

$L00FR0T  ALL 

• 

POSTLOOF  input. 

• 

6/7/8/9 
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A. 6 PROGRAMMER’S  NOTES 

This  section  is  a brief  description  of  the  programming 
techniques  used  in  PRELOOF,  a list  of  subroutines,  and  a list 
of  important  variables.  A listing  of  the  source  codes  for  both 
PRELOOF  and  POSTLOOF  can  be  found  in  Appendix  B. 

Because  the  amount  of  main  storage  required  varies  so  much 
from  one  application  to  another,  a dynamic  core  allocation 
procedure  is  used.  Blank  common  space  is  added  as  needed  by 
calls  to  subroutine  MORCOR.  The  address  of  the  newly  acquired 
core  relative  to  the  beginning  of  blank  common  is  available  in 
variable  NCORE,  and  this  address  is  passed  to  a subroutine. 

For  example,  to  allocate  a new  array  C of  size  N by  M,  one  would 
code  the  following: 

COMMON  A( 1 ) 

• 

CALL  MORCOR(N*M) 

CALL  SUBR( A( NCORE ) ,N ,M) 

• 

• 

SUBROUTINE  SUBR(C,N,M) 

DIMENSION  C(N,M) 

Examples  of  this  technique  can  be  seen  throughout  PRELOOF. 

PRELOOF  checks  input  for  errors.  When  a data  card  format 
error  is  detected,  subroutine  BUM  notes  the  card  which  was 
erroneous.  When  any  error  is  detected,  a flag  is  set  so  that 
the  job  can  be  terminated  after  all  input  has  been  read. 

Since  grid  point  numbers,  element  numbers,  etc.,  are 
arbitrary,  a search  procedure  is  needed  so  that  the  array  entry 
corresponding  to  a given  grid  point  or  element  can  be  located 
when  the  grid  point  number  or  element  number  is  given.  Function 
INDEX  does  this  search,  and  returns  a -1  if  a match  is  not  found, 
so  that  an  error  can  be  noted. 

Since  element  matrices  are  accessed  in  random  sequence 
during  the  assembly  process,  it  is  convenient  to  store  these 


256 


matrices  on  random  disk  files.  Element  stiffness  matrices  are 
stored  on  unit  98,  mass  matrices  on  99,  and  load  vectors  on  97. 
Utility  subroutines  READMS  and  WRITMS  are  used  to  access  these 
files.  This  approach  also  allows  two  elements  to  share  the 
same  matrices  if  they  are  congruent. 

The  sequence  of  operations  of  PRELOOF  is  as  follows: 

The  main  program  first  calls  INIT,  which  sets  default 
values  and  reads  $LOOF  option  cards.  It  then  calls  INPUT  to 
read  the  bulk  data  deck. 

INPUT  calls  FETCH  once  for  each  bulk  data  card.  FETCH 
puts  the  alphanumeric  card  image  in  common  block  CARD,  along 
with  indicators  to  show  whether  that  card  is  to  be  processed 
by  PRELOOF.  If  so  INPUT  branches  to  the  appropriate  subroutine 
to  decode  information  from  the  card  images.  These  routines  are: 

CORD  for  C0RD2R,  C0RD2C  and  C0RD2S  cards 

GRID  for  GRID  cards 

SEQGP  for  SEQGP  cards 

ISHELL  for  CL00F8  and  CL00F6  cards 

IBEAM  for  CL00F3  cards 

CONGR  for  CONGR  cards 

IPSHEL  for  PLOOF  cards 

IPSHELX  for  PLOOFX  cards 

IPBEAM  for  PL00F3  cards 

I HAT  for  MAT1  and  MAT 8 cards 

IPLOAD  for  PL0AD4  cards 

ITHICK  for  THLOOF  cards 

PARAM  for  PARAM  cards 

ISPNT  for  SPOINT  cards 

All  these  routines  use  subroutine  DCODE  to  decode  8-character 
fields  in  either  integer,  floating  point,  or  alphabetic  format, 
left  or  right  adjusted.  DC0DE2  is  available  for  16-character 
fields . 

PRELOOF  then  calls  PROCESS  to  do  some  additional  processing 
not  handled  by  the  input  routines.  First  grid  points  are 
sequenced  (unless  SEQGP  cards  were  present),  using  subroutine 
SORT.  Then  all  shell  elements  are  scanned,  corner  nodes  are 
distinguished  from  mid-side  nodes,  and  any  attempts  to  use  a 
node  as  a mid-side  node  of  one  element  and  a corner  node  of 
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another  are  noted.  Appropriate  permanent  single-point  con- 
straints are  generated.  PLOTEL  cards  are  generated  if  requested. 
Beam  elements  are  then  scanned  in  the  same  manner.  Modified 
GRID  cards  are  written  out  to  file  DATA. 

PRELOOF  then  calls  XSHELL,  which  controls  shell  element 
generation.  XSHELL  loops  through  all  elements,  gathering 
connection  and  property  information,  then  calling  QSHELL  once 
for  each  element.  After  QSHELL  has  generated  matrices,  XSHELL 
stores  them  on  disk  and  prints  them  out,  if  requested. 

QSHELL  loops  through  the  Gauss  points  required  for  inte- 
gration, calling  ZHELL  once  for  each  Gauss  point. 

ZHELL  calls  HALOOF  to  generate  shape  functions  and  their 

derivatives,  assembles  the  required  functions  into  matrix  B, 

assembles  stiffnesses  into  matrix  D,  and  computes  the  matrix 
T 

product  B DB , which  is  then  accumulated  onto  the  stiffness 
matrix.  The  mass  matrix  and  load  vector  are  handled  in  a 
similar  fashion. 

HALOOF  is  really  the  heart  of  the  code.  It  generates 
values  of  all  the  shape  functions  and  their  required  derivatives 
in  array  WSHEL,  direction  cosines  in  matrix  FRAM,  an  area 
integrating  factor  in  AREA,  and  a boundary  integrating  factor 
in  SIDE.  HALOOF  calls  SFR  to  obtain  actual  shape  function 
values,  then  manipulates  these  to  reduce  out  unwanted  degrees 
of  freedom.  This  subroutine  was  supplied  by  Prof.  Irons,  and 
more  information  about  it  may  be  found  in  his  publications  [ 2 ] 
and  [32]. 

For  beam  elements,  PRELOOF  calls  XBEAM,  which  controls 
beam  element  matrix  generation.  It  calls  ZBEAM  once  for  each 
element.  ZBEAM  calls  LOFBEM  once  for  each  integrating  point, 
and  LOFBEM  in  turn  calls  SFR1  to  obtain  shape  function  values. 
LOFBEM  and  SFR1  perform  the  same  functions  for  beams  as  HALOOF 
and  SFR  do  for  shells. 

Having  generated  element  matrices,  PRELOOF  assembles  them 
into  global  matrices.  This  is  done  by  calls  to  ASSY,  once  for 
the  stiffness  matrix  and  once  for  the  mass  matrix,  if  requested. 
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ASSY  generates  six  columns  at  a time  and  writes  them  out  in  a 
format  compatible  with  NASTRAN  (INPUTT2  module  for  COSMIC 
NASTRAN,  INPUTT4  for  MSC/NASTRAN) . 

If  element  load  vectors  have  been  computed,  they  are 
assembled  into  a master  load  vector  by  ASSL  which  writes  out  a 
single  column. 

The  following  is  a list  of  the  major  variables  used  in 
PRELOOF.  All  array  values  are  floating  point. 


Vari able 


Significance 


NCORD 

NUMNP 

NSHELL 

NPSHEL 

NPSHELX 

NSHLTY 

NBEAM 

NPBEAM 

NBMTY 

NMAT 

NSPOINT 

CORD( 3,5 , NCORD) 


GRID( 13, NUMNP) 


SEQ( NUMNP) 


Number  of  coordinate  systems 

Number  of  node  points 

Number  of  L00F8  and  L00F6  elements 

Number  of  PLOOF  shell  property  cards 

Number  of  PLOOFX  shell  property  cards 

Number  of  distinct  shell  element  matrices 

Number  of  beam  elements 

Number  of  PL00F3  beam  property  cards 

Number  of  distinct  beam  element  matrices 

Number  of  material  properties 

Number  of  SPOINT’s 


Coordinate  system  data 

(1.1)  External  id. 

(2.1)  Type  = 1 = rectangular 

2 = cylindrical 

3 = spherical 

(1.2)  Origin 

(i,j+2)  Transformation  matrix 


Grid  point  data 

(1)  External  id. 

(2)  Location  coordinate  system  id. 

(3  to  5)  Location  (location  coordinate 


(6  to  8) 

(9) 

(10) 

(11) 

(12) 

(13) 


system) 

Location  (basic  coordinate  system) 

Displacement  coordinate  system  id. 

Permanent  single-point  constraints 

Sequence  number 

Pressure 

Thickness 


Same  as  GRID  (11) 
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Variable 


Significance 


SHELL ( 12 ,NSHELL) 


PSHELLC  3 , NPSHEL) 


PSHELX( 20 ,NPSHELX) 


BEAH( 21 , NBEAM) 


PBEAM( 9 ) 


XMAT ( 6 ) 


Shell  connections 

(1)  External  id. 

(2)  Property  id. 

(3-10)  Grid  point  numbers  (external  id. 

initially,  sequence  numbers  later) 

(11)  Element  matrix  number 

(12)  Material  orientation  angle  for 
orthotropic  materials 

Isotropic  shell  properties 

(1)  External  id. 

(2)  Material  id. 

(3)  Thickness 


Anisotropic  shell  properties 


(1) 
(2-7) 
(8-13) 
(14-19) 
(20) 


External  id. 
A matrix 
B matrix 
D matrix 
Area  density 


Beam  connections 

(1)  External  id. 

(2)  Material  id. 

(3-5)  Grid  points  (external  id. 

initially,  sequence  numbers  later) 
(6-8)  Property  id.  for  cross-sections 

at  the  three  grid  points 
(9-14)  Offsets 

(15)  Element  matrix  number 

(16-18)  Not  used 

(19-21)  Orientation  vector 


Beam  cross-section  properties 

(1)  External  id. 

(2)  Area 

(3,4)  Moments  of  inertia 

(5)  Torsion  constant 

(6-9)  Stress  recovery  coefficients 


Material 

(1) 

(2) 

(3) 

(4) 

(5) 

(6) 


properties 
External  id. 


E 

E 

E 

G 


11 

12 

22 


P 
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APPENDIX  B 


SEMI-LOO F PROGRAM  LISTINGS 
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B.l  CONTROL  CARD  PROCEDURES 


, PROC  > UPU  A TE  , 

AT  T ACH ILUUFPL , ID  = D7AU29<>,mR=1J 
UPDA1EIU,P=LU0 FPL) 

F TN(1=LUMP1LE, b = NtrtJ 
AT  TACHIULU,LUUFGU,  10  = 074  0292^  = 1 ) 

RErtl NO (ULU, wEl« J 
CUPYl(OLl),  NE*,LOUFGU) 

RETURNlLOUFPL, CUMP1LE,ULD,NEM 
REVER1  , 

X 

,PKOC,PRE, 

COMMENT,  PRELOUF  , rtPAF'B 
1FE,FILEIUT1, .NOT , ILU.UR.PF ) ) , SKIPd. 

ATT ACH IRF ALTER, LOUF ALTER, 10=0740292, MR=1 ) 

UPDATE(P=RFALlER,L=l,C=RFALTS,0,8) 

RETURN(RFALTER) 

UPDA1E(0,8,C=PRE,L=1) 

RETURN (RF  ALTS) 

IF E, FILE UUUFGU, .NUT, (LO.OR.PF )),SKIPA, 
ATTACHILOUFGU, 1D  = D74  0292,MR=U 
ENUIF(SKlPA) 

LOSE  T (MAP=b/MAPFlLE) 

lOUFGU(PRE) 

RETURNlLUOF'GO,PRE,  \ APE9  7 , T APE98 , T APE99 ) 
ENUIF  (SMPbJ 

ATTACHINASTRAN,  1 0 = N AS  TRAN,  MR  = i ) 

L 1 BRAKY (FUR  TRAN, SYS 1U) 

MAPIUFF) 

RETURN IMAPF1LE) 

REVERT  , 

EXIT, 

REwlNUlMAPF 1LE) 

COPY (MAPF1LE, OUTPUT ) 

REVERT lAbURT) 

X 

, PRUC / PLUT , 

REDUCE, 

AT  T ACH(M,MANDMCALCOMP, 10=0740292) 

AT TACn l nASPLT, 10=0/40292) 

MAPIUFF ) 

RE  W I ND l PL  T 2 ) 

ROUTE(ANAPLT,OEF ,OC=PR,ST=CSA, TIO=Tb) 
LDSET (Llb=M) 

NASPLT  , 

RE  T URN  l ANAPL 1 ,wASPL  I , M) 

REVERT . 

X 
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.PkOL,ktSlUKt,PkUB  = L/4Uc!92. 

LABtLlbAVt,K,L=LUOH  * VS^LQUU'zV)  ktMUlt  REUUtST,  U*ktk=D73U3toS 
KtOUtST  l LUOF  / *PF  ) 

CUPYbF (SAVE, LOOP ) 

CATALUGlLOUF, lU=PRUb,RP=999) 

RETURwCLOuF ) 

RtOUtS  \ ( UUUF  GU,  *PF ) 

COPVbF  l S A Vt , LUUF  GO ) 

CAT  ALUGUOUFGU,  il)  = PkUb,kP  = 999) 

RtTUKN(LUUFGU) 

COPYbF (SAVt,ULDPU 
RtOUtST (NtrtPL,*PF ) 

UPDATE(N,F ,C  = 0 ) 

CATALOG INEwPL/LUGFALTtR, 1D=PRUB, RP=999) 

Rt  TURN  (OLD PL  ,NE«PL  ) 

COPYBF'  ISAVE»ULDPL) 

RE  1 URN (SAVE) 

UPDATE (iv,  CsO ) 

REQUEST (NE^PL,  *PF ) 

CATALOG (NEwPL» LUOF PL/ !U=PROb, kP=999) 

RtTURNlOLDPL/NEwPL) 

X 

w 
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**  * AL 
***  TU 


4 

ALTER  93 

PARAM 

PAW  AM 

CUND 

1NPU1T4 

LABEL 

EUU 1 V 

COND 

P ARAM 

PARAM 

PARAM 

MATGEN 

MERGE 

ADD 

tOUl  V 

LABtL 

PARAM 

CUND 

INPUT  T<4 

tUUI  V 

COND 

MERGE 

ADD 

EQU1V 

LABEL 


B.  2 

DMAP  ALTER  LIBRARY 
(Partial  Listing) 


EK  MSC/NAS1RAN,  RIGID  F ORMA  I * * * 

ACLEPI  FILES  I-kUM  PHELUUF  FOR  SEM1-LUUF  ELEMENlS  *** 
PARaMS  USED  BY  This  ALTER  ... 

NAME  DEFAULT  REMARKS 


NSPUlNl  U NUMbER  UF  SPOI NT  ~S  IN  ThE  MODEL 

ST1FFMAT  -1  PUS1T1VE  VALUE  INDICATES  THAT  PRELOOF 

GENERATED  A STIFFNESS  MATRIX 

MASSMAT  -1  POSIIIVE  VALUE  INDICATES  THAT  PRELOUF 

HAS  GENERATED  A MASS  MATRIX. 

LUADVEC  -1  POSITIVE  VALUE  INDICATES  ThAT  PRELUOF 

GENERATED  A LOAD  VECTOR  CORRESPONDING 
TU  PRESSURE  LOADING  FOR  THIS  MODEL, 

*NUT  E*  PRELUUF  GENERATES  ALL  THESE  PARAMS  AUTOMATICALLY 


//SUB/V,N, NUEXTRA/V,  Y ,NEXTRA=0/1  4 
//NUP/V, Y,ST lFMATs-1  » 

LBLNUK, ST1FMAT  4 
/KLGGf  ttf/l/11  4 
LBLNUK  4 

KLGG, KGG/NUEXTRA  4 
LBLNOX,NUEXTRA  4 
//MPY/V,  N,NDUF/V,  Y,NEXTRA/b  4 
//ADD/V , N,MDUF/V#  N, NDOF/V, Y ,NSPU1NT=0  $ 
//SUB/V, N, LUSET2/V,N,LUSt T/V,N,MDOF  * 

, /RP/b/V,  N,LUSET/V,N,LUSET2/V,N,MDOF  4 
KLGG , , , ,RP,/KLGGl/  4 
KLGG1 , KGG/KGG1  4 
KGG1 jKGG/ALWAYS  4 
LBLNUX  4 

//NUP/V, Y,MASSMAT=-1  » 

LBLNUM, MASSMAT  4 
/MLGG, , , ,/l/l 1/0  4 
MLGG,MGG/NUExTRA  4 
LbLNUM, NOLXTHA  S 
MLGG,,, ,RP,/MLGGl/  4 
MLGG1 ,MGG/MGG1  4 
MLGG1 ,MGG/ALRAYS  S 
LBLNUM  4 
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ALTER  lab 
PARAM 

//NUP/V*YfLUAUVEC=*l 

CUNL) 

LBLNOPGLf LOADVEC  $ 

iNPUTTa 

/PGL, , , ,/1/U/O  * 

EOU1V 

PGL» PGLL/NOEXTRA  % 

CONI) 

LbLNUP,NUtXTRA  * 

MERGE 

PGL*  t t » / RP/PGlL/0  3> 

LABEL 

LBLNUP  4. 

ADO 

PGLL  r PG/PGU  » 

EQU1V 

PGU,PG/ALwAYS  S 

LABEL 

LbLNOPGL  » 

* ***  ALltK  MSC/NASTRAW,  HIbiD  HjRMAl  dH  *** 

ALTtK  J^0HKUUUCt  FILLS  FUh  ^USTLUUF  Fuk  SEMI-LUOF  ELEMENTS  *** 
OUTPUT*!  UGv, , , , //0/ld  * 
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b * * A 
$ * * A 

s 

i 
b 
i 

s 
s 

b 

s 
& 

$ 
b 

s 

s 

I 
b 

al  ter 

PARAM 
COND 
ALTER 
PARAM 
ALTER 
PARAM 
PARAM 
CUND 
MATGEN 
LABEL 
CUND 
1NPUTT4 
EGlUl  V 
COND 
MERGE 
LABEL 
ADD 
b DU  1 V 
COND 
1NPUTT4 
EUU1  V 
CUND 
MERGE 
LABEL 
ADD 
EGU1  V 
CUND 
GP  AG 
Of-  P 
LABEL 


ALTLR  MSL/NASIKAN,  RIGID  FURMAI  £b  aaa 

TU  ACLEP1  FILES  FROM  PktLUuF  TOR  SEMii-LUUF  ELEMENTS  * + * 
PARAMS  USED  BY  lhlS  ALItR  ... 

NAME  DEFAULT  REMARKS 


NSPOlNT 


ST1FFMA1  -1 


KASSMAT 


-1 


NUMbER  OF  SPOIN1-S  IN  THE  MODEL 

POSITIVE  VALUE  INDICATES  THAI  PRELUUF 
GENERATLD  a stiffness  matrix 

POSITIVE  VALUE  INDICATES  THAT  PRELUUF 


*NUTE*  PRELUUF  GENERATES  ALL  IHLSE  PARAMS  AUTOMATICALLY 


7b,  BO 


63, 


//AND/ V , N, WUM/NOMGG/ V , Y , MASSMA 1 1 S 
RFERR,NOM  2b 
6 i 

//ANU/V , N, NOK/NUKGG/V, Y,ST1FMAT=-1  b 

//SUB/ V , N, NUBLUa/V , Y , NSPOl N T =0/ 1 b 
//SUB/ V , N, LUSET2/LUSE  \ /NSPOl nT  b 
LNUbLUA , NUbLUA  b 

, /BLUw/o/LUSE ! /LUSET2/NSP01NT  b 
LNUbLUA  b 

noluufk,st ifmat  b 

/KGG l,,,,/l/ll  b 
KGG1  , KGGt?/NUBLUK  b 
NULOUFK , NUbLUA  i 
KGG1, , , ,BLOa,/KGG2/  b 
NULOUFK  b 
KGG2 , KGG/KGGL  b 
KGGL/KGG/ALaAyS  b 
NUL  OUF  M , MASSMA  T b 
/MGG1 , , , , / 1 / 1 1/0  b 
MUOl , MOG2 / NUBLUa  S 
NULUUFM,i^UbLUA  b 
MGG 1 , , , , bLUA, /MGG2/  i 
NULUUf  M b 

mgu^,mog/mogl  b 
MGGL,MGG/ALaAYS  b 
LGPaG,GRDPNT  b 

bGPDT , LS  f M, EUEX IN, M&G/UGPaG/ V , Y , GRDPN  I =- 1 /C  , Y , A T MASS  b 
UGPaG/ / b 
L G P A G b 
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B.  3 PRELOOF  PROGRAM  LISTING 

PWUGRAM  PRELOOP  ( 1 NPuT = 2 0 1 b , D A 1 A = 2 0 1 B , OU T PUT = 2 0 1 B , UT 1 , LS T RE S , 
. T APE3  = DAT  A , I APt«  = Ul  1 , 1 APE  7 = L ST  RES, 

. TAPt 1=1 NPUT , TAPEb= INPUT , 1 APEt>=OUTPUT , 

. TAPE97, 1 APE9B, IAPE99) 

C 

C MATRIX  GENERATION  PREPROCESSOR  P OR  SEMI-LOOK 

C SHELL  AND  BEAM  ELEMENTS  PUR  USE  IN  NASTRAN 

C WtG,  12-78 

C 

COMMON/ CUNTRL/ EC HO,  ERR,  MAI  Gt 
, wTMASS, NASTY 

LOGICAL  ECHO, ERR, MA1GEN,DYN, 

CUMMUN/LOC/LCORD,LGRlD, LSEU, 

. LM A T , LPSPC 

COMMON/ N/ NCORD, NUMNP, NSHELL, 

, NBMTY,NMAT ,NSPOlNl , 

COMMON  All) 

CALL  INIT 
C 

C REAU  SIOFF  IN;  DO  PARTIAL  ERROR  CHECK 

C 

CALL  INPUT 

IF  l ERR ) CALL  SYS1EMIS2, 32H  JUb  ABORTED  DUE  TO  ABOVE  ERRORS) 
C 

C DO  SOME  MORE  PROCESSING 

C 

CALL  PRUCESSIACLGRID) , AILSHELL) , ACL6EAM) , A(LSEQ), A (LPSPC) ) 

IF  (ERR)  CALL  SYSTEM(52, 32H  JOB  ABORTED  DUE  TO  ABOVE  ERRORS) 
HEwlND  i 
C 

c GET  MATRICES,  IF  WANTED 

C 

IF  ( . NOT  # MAT GEN ) STOP 
C 

C RANDOM  FILE  INDICES 

C 

NL  = NShl1 Y + NBMT  Y + 1 
LS1NDEX=NC0RE 
CALL  MORCOR(NL) 

LM1NDEX=NC0RE 
CALL  MORCOR(NL) 

LLINDEX=NCORE 
CALL  MOHCURINL) 

CALL  0PENMS19B, AILS1NDEX) ,NL,0) 

IF  (DYN)  CALL  OPENMS C 99 , A ILMI NDEX ) , NL , 0 ) 

IP  (APPLD)  CALL  OPENMS 197, A (LL1NDEX),NL,0) 

C 

C SHELL  ELEMENTS 
C 

LELST IF =NCORE 


N,DYN, APPLD, PLOT, DBUG, BAD, NCORE, 
APPLD, PLOT ,DBUG, BAD 

lshell,lbeam,lpshel,lpshelx,lpbeam, 

NPSHEL, NPSHELX,NSHLT Y , NBE AM, NPBE AM, 
MAXGRD,NDOF 
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CALL  MukCOR(32*32 ) 

LELMASS=nCORE 
CALL  MURCOR(32*32) 

LtLOA|)  = NCORE 
CALL  MUWCUK  ( 32  ) 

LtLST  KS  = i^CUKL 
CALL  MUKCUR(b*32) 

LShAPE=NCORE 
CALL  MURC0R(l3*4B) 

CALL  XSHtLL( A(LGRID) , A(LSHELL) , A(LPShtL) , A(LPSHELX) , A(LMAT  ) , 
. A (LtLST IP ),A(LELMASS),A(LELOAD),A(LtLSTRS), 

, A(LSlMDtX) , A(LSHAPt) ,A(LStU) ) 

NCURt=LtLSI IF 
C 

C dt  AM  tLLMLNTS 
C 

LtLST IF  =NCORE 
CALL  MUkCGR ( 1 7* 1 7 ) 

LtLMASS=NCORE 
CALL  MUKCCJR  ( 1 7*  1 7) 

LELOAD-nCORE 
CALL  MUKCUKU7) 

LtLST  F S=NCORE 
CALL  MURCUR ( 1 7 a b ) 

LSHAPt=NCORE 
CALL  MURCURC  1 .4  * a 5 ) 

CALL  XBEAM( A(LGRID) , A(LBEAM) , A(LPbtAM) , A(LMAT) , 

. A (LtLST IF) , A(LtLMASS), A(LELOAD) , A (LtLST RS) , 

, A(LSINDtX) , A(LSHAPt) , A(LStU) ) 

IF  (tRR)  CALL  SYSTtM(52,32H  JOB  ABORTED  DUE  TO  ABOVE  ERRORS) 

NCORt=LELSTlF 

NDOF=b}  NUMNP+NSPUlNT 

CALL  MORCOR (32*32) 

lelmat=ncore 

CALL  MURCOR (32*32) 

lbig=ncore 

CALL  MORCOR(b*NDOF ) 

CALL  ASSY(«HST1F,9B, 

, A(LBIG) , A(LSHtLL) f A(LBEAM) , A(LCORD) , A(LGRID) , A(LSEQ) , 

, A(LPSPC) , A(LELMAT) , A(LtLMAT ),NDOF) 

IF  (ERR)  CALL  SYSTtM(S2,32H  JOB  ABORTED  DUE  TO  ABOVE  ERRORS) 
IF  (DYN) 

.CALL  ASSY  UHMASS,  99, 

, A(LB1G) , A(LSHtLL)f A(LbtAM),A(LCURD)» A(LGRID)/ A(LSEO) , 

. A(LPSPC)  , AUELMAT  ) , A(LELMAT)  ,NDOF  ) 

IF  (ERR)  CALL  SYSTEM(S2, 32h  JOB  ABORTED  DUE  TO  ABOVE  ERRORS) 
IF  (NSPUlNT .GT .0. AND. NASTY, EG, 1)  CALL  PARVtC 
IF  (APPLD)  CALL  ASSL(4HL0AD,97,A(LB1G), 

. A(LSHELL) , A(LBEAM) , A(LCORD) , A(LGRID)  , A(LStQ)  , 

. A(LPSPC)fA(LELMAl), A(LELMAT)) 
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U ItKrt)  CALL  SYSltM(b^,3£H  JUb  ABUKItU  l>Ut.  U)  ABOVt  tKRUHb) 
RIkINU  H 
KtMNU  7 
E.NU 
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bUORUUT lNt  DUMP (NAME , A , M,  N, MN) 

D1MENS1UN 

CALL  ST5  lEMbl  , bM  LUMP) 

CU  1U  l 10,20,30) ,MN 

10  DO  11  1=1 ,N 

11  PR1N1  12, NAME,  1 ,LUCF  (A(  1, 1)  ) , UIJ,  1 ) , J = 1 ,M) 

12  FORMAT  UX,A10,lb,3X,OO/(bllX,U20))) 

RETURN 

20  DU  21  1=1, N 

2 1 PH  1 M 22,NAME,l,LUCFlAU,l))»  l A l J , 1 ) , J = 1 , M ) 
id  FORMAT  llX,A10,15,3X,Ub/(10E13.b)) 

RETURN 

30  DU  31  1 = 1, N 

31  PRINT  3<?,NAME,  l,LUCF(Al  1 , 1)  ) , ( A ( J , 1 ) , J = 1 , p ) 

32  FORMAT  11X,A10, lb, 3x, 06/110113)) 

RETURN 

END 
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SUbKUUflNE  MijKLUK(N) 

CClf'MUI'J/UUNT  KL/tCHO,  LRk,  MA  I bt N , D Y * , APPLD , PLO  I , DbUG , b Al) , NCUWt  , 

ftTMASS»NA$ | Y 

LOGICAL  U,HUftNH,MA7litN»UYN,  APPLD,PLU1  , DbUG, b AD 
DIMENSION  X ( 3) 

COMMON  All) 

DATA  LA, lFL/0,0/ 

DA  I A KFL/aOOOb/ 

IF  ILA.GT.O)  Gu  1U  S 
LASLOCF (A) 

CALL  MLM(IFL) 
b NCOkE=NLOkE+N 

10  IF  (NCUKttLA.LI .1FL-A)  KEIUKN 
iNLR=NCOKE+LA-IFL+S 
1NCK=11NCR+KFL-1)/KFL 
InCR=*FL*1NCR 
ifl=ifl+imcr 

tNC0DE(20,20,X)  1FL 
20  FURMAT  l«HRFLl,Ob, lh) ) 

X ( 5 ) =0 

CALL  REMARK  ( X ) 

CALL  MEM(IFL) 

GU  TO  10 

End 
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IULnT 

ML  M 

t M H t 

ciLM 

lltM 

bSSZ 

1 

S A 1 

X 1 

Sx  7 

A 1 

LX  1 

30D 

SA/ 

LSTAT 

bXO 

XI 

SAo 

STAT 

MtMuKY 

SCM,ST AT, RECALL 

SA  1 

STAT 

SA2 

LSTAT 

A X 1 

30D 

ttXb 

XI 

SAt> 

X2 

tu 

MtM 

ST  A f 

bSSZ 

1 

LSTAT 

BSSZ 

END 

1 
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FUNCTIUn  1 NOE  X (L  1ST  , N, L , ITEM) 

C 

C FINOS  A i» U M b t K IN  A LIST  IL.G,  UR1U  POINT  NUMBERS) 

C 

DIMENSION  LIST  ll» 1 ) 

REAL  LIST, ITEM 
OU  10  1 NOE  X = l , N 

IF  (LiSTUfINOEXJ.EO.lTEM)  RETURN 
10  C0N11NUE 
IN0EX=-1 
RETURN 
ENU 
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SubkUO 1 1 NE  bUM 

COMMUN/LUNTRL/tChU, Ekk,MA IGEN,DYN, APPLD#PLOI  , DBUG , b AD , NCURE » 
, *1MmSS,NASIY 

LOGICAL  ECHO,ERk,MAlGEN,UYN, APPlD»PL01  , DBUG » BAD 
COMMUN/C AnD/NAME, CARD l 4 00) , MXCARD, NCARU, NT YPE , NSUb,  NU 
C 

C ERROR  MESSAGE.  FOP  bAD  BULK  DATA  CARD 

C 

IF  C.  NUT.  ECHO)  PRINT  1 0 / NO,  N AME  , ( C ARD 1 1 ) , I = 1,  NC  AKD ) 

10  FORMAT  C 1 10, 1H, ,SX, 9AB/ 124X, BAB) ) 

PRINT  20  * NO 

20  FORMA]  (29h  ***  FuRMAl  ERROR  ON  CARD  NO,, IS) 

LRRs.TRUE. 

RETURN 

END 
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IDLnI  MOVER  (A, ll,b, JC,N) 

ENlkV  MOVE* 

VtU  30/OHMUVER, 30/b 

* 

* COMPASS  PRU&kAM  FOR  IKAnSFER  OF  DATA  (UN  COMPILER) 


* EUUlVALENl  FUR  1 PAN  SUBROUTJNt 

* SUBROUTINE  MOVER  ( A , 1 C , B , JC , N ) 

* DIMENSION  A(1),B(1) 

* lF(N.Eu.u)  RETURN 

* 1 = 1 

* J = 1 

* DO  lOu  K= 1 » N 

* b ( J ) =A ( 1 ) 

* IsItlC 

* 100  J=J+JC 

* RETURN 

* END 


* 

MOVER 


EVEN 


BSSZ 

1 

SA5 

Ai+a 

ADS (N)  TO  Xb 

SB  1 

l 

Sbi 

2 

2 10  B3 

SA2 

X5 

N TO  X2 

SA3 

Al+bl 

SXb 

B 1 

1 TO  Xb 

SAu 

A3  + b3 

ADSCJC)  10  XA 

SA3 

X3 

1C  TO  X 3 

SAb 

A1+B3 

ADS ( b ) TO  Xb 

Soa 

X2 

N TO  BA 

S A A 

xo 

JC  TO  XA 

SB7 

X3 

1C  TO  B7 

BX7 

Xb*X2 

MOD ( N , 2 ) TO  X 7 

SXb 

B3 

2 TO  Xb 

Sbb 

xa 

JC  TO  Bb 

LE 

BA, BO, MOVER 

RETURN  IF  N=0  OR  N IS  NEGATIVE 

ZR 

x7 , E VEN 

SA3 

XI 

ODDD,  MOVE  FIRST  ELEMENT 

SbA 

BA-B1 

sxi 

X1+B7 

BX7 

X3 

SX2 

BA 

N TO  X2 

SA7 

X5 

SXb 

X5  + bt> 

BX  7 

Xb*X2 

MOD ( N,  A ) TO  X7 

Sbb 

B3  + B3 

A TO  Bb 

ZR 

X 7 , F OUR 

S A3 

XI 

SAA 

X1+B7 

SXI 

X1  + B7 
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SbU 

bU-r>3 

HXO 

xi 

Sx  i 

X1+B7 

LX  7 

XU 

SAo 

xb 

6 A 7 

xb  + bo 

SXb 

X5  + BO 

SXb 

Xb  + bo 

FOUR 

GE 

bO , bU » MOVER 

Sxo 

Xb 

Sb2 

bO 

SA3 

x l ♦ b7 

Sb7 

b 7 tb  7 

SAa 

Xl+b7 

SA2 

XI 

SAb 

A3  + B7 

sxi 

XO+bO 

Sb  7 

b 7 + B 7 

Sbo 

ootbo 

eg 

b7,b0,ZER0 

TEST  FOR  ZERO  INCREMENT 

EG 

bO , BO  > M1DD 

LUUP 

SA2 

A2  + B7 

SA3 

A3  + b7 

SAa 

AU  + B7 

SAb 

A5  + B7 

MlDD 

Bxo 

X2 

Sba 

BU-bS 

L X 7 

X 3 

SAo 

X0  + B2 

SA  7 

X1+B2 

Sb2 

B2  + Bo 

BXO 

XU 

LX  7 

X5 

SAO 

X0+B2 

SA7 

X 1 tB2 

SB2 

B2  + bo 

g r 

BU , LOOP 

EG 

BO , BO , MOVER 

ZERU 

BXb 

X2 

LX7 

X2 

LUUP2 

SAO 

X0  + B2 

SA7 

X1+B2 

Sb2 

B2  + bo 

SbU 

BU-B5 

SAO 

X0  + B2 

SA7 

X1+B2 

SB2 

B2  + B6 

G1 

BU » LUOP2 

EG 

BO, BO, MOVER 

END 
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SCPROD 


even 


lULwl  SLPKUD  IN, 1C* JC, A,B,SUM) 

VFD  36/OhSCPKOU,24/t> 

twlKY  SCPROD 

COMPASS  PROGRAM  FOR 
1 = J — 1 , SUM=0 

DO  10  K=1,N 
SOPsSOMtAU)*B(J) 
iBitIC 
10  J=JfjC 


SCALAR  product  (FIN) 


bssz 

1 

SB7 

1 

B7  RtMAINS  1 

SAb 

XI 

N TO  xb 

SA2 

A 1 +b7 

ADS C 1C ) TO  X2 

MX6 

0 

CLEAR  SUM1 

SA3 

A2fB7 

ADS(Jt)  TO  X3 

SX  7 

67 

1 TO  X7  FOR  ODD 

Sbl 

X5 

N TO  B 1 

SA4 

A3  + B7 

ADS ( A ) TO  X4 

yxo 

XS*X  7 

MOD(N,2)  TO  XO 

SAb 

A4+B7 

AOS(B)  TO  Xb 

SA2 

X2 

1C  TO  X2 

SA3 

X3 

JC  TO  X3 

SA1 

X4 

A(l)  TO  XI 

SA  A 

Ab  + b 7 

ADS ( SUM)  TO  X4 

SB2 

X2 

1C  TO  B2 

SB3 

X3 

JC  TO  B3 

SA2 

X5 

B ( 1 ) TO  X2 

Sbo 

X4 

ADS ( SUM)  TO  B6 

ZK 

XOf EVEN 

SKIP  TO  EVEN  IF 

HXt> 

X 1 *X2 

N IS  ODD  SU 

S A 1 

A1+B2 

A ( 2 ) TO  XI 

SA2 

A2  + B3 

BC2)  TO  X2 

Sbl 

Bl-67 

N = N-1 

EU 

bi,last 

QUIT  IF  N IS  NO 

SXb 

B 1 

X5=N 

SA3 

A 1 tB2 

A(I+1)10  X3 

SX  7 

B7  + B7 

2 TO  X 7 

SA4 

A2+B3 

B ( 1 4 1 ) TO  X 4 

BXO 

X5*X7 

M0D(N,4)  TO  XO 

Sb2 

B2  + B2 

2*IC  TO  B2 

MX  7 

0 

CLEAR  SUM2 

SB3 

B3  + B3 

2* JC  TO  B3 

SB5 

XO 

MOD ( N, 4 ) TO  Bb 

Sbl 

bl+Bb 

N=N+M0D(N,4) 

MX  0 

0 

CLEAR  XO 

Sb4 

4 

4 TO  B4  FOR  LOO 

bX5 

X 7 

CLEAR  X5 

GT 

Bb, BO, TEST 

SKIP  TO  TEST  IF 

RXlt 

XI  *X2 

X0=A( 1 ) *bl 1 ) 

EU 

T *vO 

IF  MOD ( N, 4 ) IS 

TEST 


N EVEN 


ZERO 


DECREMENT 


MQD(N,4)=2 


0#  START  IN  MIDDLE 
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LUUP 


TrtU 


TtSl 


L AS  1 


Rxo 

x 1*  x 2 

S A 1 

A 1 +02 

NXO 

X 6 

SA2 

A2*b3 

F x 7 

x 7 + Xb 

KXb 

X 3 * X 4 

Sbl 

B1-B4 

S A 3 

A3  + b2 

NX  7 

x7 

S A A 

A4  + B3 

F XO 

XO  + X0 

K X 0 

x 1 * x2 

SA  1 

AHB2 

SA2 

A2  + B3 

F X 7 

X 7 tXb 

NXO 

X 0 

RXb 

X3*X4 

SA3 

A3  + B2 

SA4 

A4  + B3 

NX  7 

X7 

Fxo 

XO  + X0 

LT 

B4  f B 1 / LUOP 

RXO 

XHX2 

NX  1 

X 0 

F X 7 

x7fx5 

RX5 

X 3 * X 4 

nx3 

X 7 

FX2 

XO  + Xl 

NXO 

X2 

F X 4 

X3  + X5 

NX  7 

X4 

FXO 

x o ♦ X 7 

NXO 

XO 

Sao 

bo 

to 

SCPKOD 

t NO 

xu=ACl J*bci) 

Al=AU+cf  J 
NUKMALlZt  SUM 
x2=b  1 1+2 ) 

SUM2  = SUM2*A(l-n*Bll-l) 
XB  = A(HI)*B(H1) 

N = N-4 
X3  = AU  + 3) 

NUKMALlZt  SUK2 
X4=B(l+3) 

SUM1=SUMHA(1)*B(I) 

X0  = AlH2)*B(l+2) 
X1=A(H4) 

X2=Bll+4) 

SUM2  = SUM2  + AIH1HB(  HI ) 
NUKMALlZt  SUM  1 
Xb=A(H3)*B(  H3) 

X3  = A(Hb) 

X4  = b(  Hb) 

NUKMALlZt  SUM2 
SUMlsSUMHACH2)*BlH2) 
RtCYCLt  IF  4 LI  N 
CLtANUP  BEGINS 


SUM=SUMHSUM2 
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KEDCLP 


IULn  1 

RtULLP  IN#  1L#  JLrMCi  A,B) 

vF  u» 

3 o/0n*tUCLP#2A/o 

L N 1 K 1 

KtUCLP 

BSSZ 

1 

OAUSS1AN  REDUCTION  LOUP, 

FTN  COMPILER 

FORTRAN 

EUUi VALtNT 

SUBROUT  JNE 

REDCLP  (N# 1C#JC# 

FAC# A#B) 

DIMENSION. 

A C 1 ) # b 1 1 ) 

1 = 1 

J = 1 

DU  100  K=1 

# N 

B(J)=b(Jj- 

F AC*  A ( I ) 

I=l+lt 

J=JtJC 

SA2 

xl 

N TO  X2 

S03 

2 

2 TO  B3 

SA3 

A 1 + 1 

ADS(IC)  TO  X3 

SX6 

1 

1 TO  Xb 

SA5 

A1+B3 

ADS(JC)  TO  Xb 

SB2 

X2 

N TO  B2 

S A A 

A3  + B3 

ADS (FAC)  TO  XA 

SA3 

X3 

1C  TO  X3 

bX  7 

Xt>*x2 

MOD ( N # 2 ) TO  X 7 

SA2 

A5  + B3 

ADS ( A ) TO  X2 

S A 1 

XS 

JC  TO  XI 

SAb 

AA  + B3 

ADS ( B J TO  X5 

SAA 

xa 

FAC  TO  XA 

SB7 

X3 

1C  TO  B7 

SBA 

XI 

JC  TO  BA 

BXO 

XA 

FAC  TO  X0 

SAA 

Xb 

B TU  XA 

Sbl 

X 1 + BA 

2* JC  TO  B1 

SA1 

X2 

A TO  XI 

$A2 

X2fB7 

A ( 1 ♦ I C ) TO  X2 

SB7 

X3*B  / 

2*  1C  TO  B7 

RX1 

X0*X1 

FIRST  MULTIPLY 

ZR 

X 7 # E VEN 

SKIP  IF  N IS  EVEN 

FXA 

XA-X1 

FINISH  FIRST  OPERATION 

SB2 

B2-1 

DECREMENT  B2 

SA1 

A1+B7 

A(1+2«IC)  TO  XI 

NXb 

XA 

NORMAL  I ZE ( X A ) TO  Xb 

SAb 

A A 

Xb  TO  B ( 1 ) 

ZR 

B2#REDCLP 

RETURN  IF  N=1 

RX1 

X0*X1 

X0*X1  TP  XI 

N ODD 
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t V 1 1* 

LUUP 


DUNfc 


SttU 

Aa  + b 1 

KXi 

XUM2 

SAb 

xb  + ba 

UL 

B3,  b'd , UUnL 

F xa 

xu-x  1 

SA2 

A2tb7 

SA1 

AUb7 

NXb 

xa 

SAU 

AU+bl 

F Xi 

X5-X3 

SAb 

Abtbl 

NX  7 

X3 

Sb2 

b2-b3 

SAb 

Aa-bl 

RX1 

X0*X1 

KXi 

X0*X2 

SA7 

Ab-bl 

LT 

b3»b2/LOUP 

F xa 

XU-X1 

NX  0 

xa 

F Xb 

XS-X3 

SAb 

AU 

NX  7 

x5 

SA7 

Ab 

LU 

bOf BOrREDCLP 

LNU 

b(  1 + 2*  JC  ) 1 U XU 
XU**2  lu  Xi 
b ( 1 ♦ JC ) TU  Xb 
NU  LUUP  IF  N-2 


OK  N = i 
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SubKUU 1 1 imE  1 Nl  1 


t wAUtS  THRU  EXEC  ♦ CASE  DECKS,  StlS  DEFAULT  VALUES,  READS 

C SLGUF  OPTIONS,  lNlllALUES  STUFF 

C 

COMMON/CUNT  RL/ECHO,  ERR,  MATGE N, DYN, APPLD,  PLOT  ,DBUG,  BAD,  NCORE, 

. MMASS,  NASTY 

LOGICAL  ECHO, ERR, MA TGEN, DYN, APPLD, PLOT, DBUG, BAD 
COMMON/LOC/LCORD,LGRID,LSEU,LSHELL,LBEAM,LPSHEL,LPSHELX,LPBEAM, 
, LMA  T , LPSPL 

COMMON/CARD/NAME,CARDlflOO) ,MXCARD,NCARD,NTYPE,NSUB,NO 

COMMON/T1TLE/T 1 ILElB) 

CUMMON/GAUSS/NGAUS,GFAt I 

COMMON/N/NCORD,NUMNP,NSHELL,NPShEL,NPSHELX,NSHLTY,NBEAM,NPBEAM, 
• NBMT Y,NMAT,NSPOlNT,MAXGRD,NDOF 

DIMENSION  STATUS  lb) 

DATA  YES,NElN/3hrES,3H  NO/ 

READ (5* 1 ) TITLE 
1 FORMAT  IBA10) 

IF  ItOF (5) ,NE,0)  S10P 
CALL  MOVER(0,0,LCURD, 1,9) 

CALL  M0vER(0,0,NCORD,  1#  12) 

NCOREsi 
PLUT=. FALSE. 
tCFiU=, FALSE. 

MA  T GENs . T RUE . 

APPLDs. FALSE. 

ERRs. FALSE. 

DVNs, FALSE, 

DBUG=. FALSE. 

NGAUS=2 
GF  AC  Ts0 
WTM ASSs  1 • 

NAST  Y -2 
MXC  ARDsiiyO 
N0=0 

b RE AD ( 1 , 1 0 ) lCARUlI),Isl,8) 

10  FORMAT  ( BA  1 0 ) 

IF  (EOF (l).NE.O)  GO  TO  40 
WRITE (3, 10)  ( C ARD ( 1 ) / 1 s i , 8 ) 

IF  (CARD(1 ) .EG. 10HBEG1N  BULK)  GO  TO  20 

PLOT=PLOT.OR.(CARD(  1 ) ,EQ.  10HSLOOFPLOT  .AND,  CARD  (2)  ,EGi.3HYES) 
ECHO=ECHO.UR.(CARDll) .EU. lOHiLOUFEChO  .ANU.CARD12) .EQ.3HYES) 
DBUGsDBUG.OR. (CARD( 1) ,EO. 10HSLOOFDEBUG,AN0.CARD(2) .EQ.ah  YES) 
MATGENsMATGEN.AND.CARDCl ) ,NE. lOHSLOOFMAT  N 
IF  (CARDll).Ey,10hSLOOFGAUSS.AND.CARD(2).EQ.2H  3)  NGAUSsJ 
IF  (CARDID.EO.IOHJLOOFFACT  ) GF  ACT=DCODE  (CARD12)  , 2,  BAD) 
DYNsDYN.OR.CARD(l).EQ.10H3.LOOFDYN  Y 
IF  (CAHUll ) .EQf 1 OH1N AS  1 RAN  C)  NASTY  = 1 
IF  (CARD(l).EO.lOHlNASTRAN  M)  NAST Y =2 
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GU  lu'b 


2 o Call  Muvt r tNtlN# o, s l atus»  1#6) 


IF  iMAlbtlMj  Si  A I USI 1 )=YES 


IK  IDTN)  SI ATUS12)=YES 
IK  l AK'K’L  U ) SI  A1US13)=YES 
IK  (ECHO)  SI AlUStajsYtS 
IF  (PLUTJ  ST ATUSIS)=YES 
IK  (DbUG)  ST ATUSlb)=YES 

*RlTE(t>,30)  T1TLE,STATUS,NGAUS,NGAUS,GFACT 
30  FORMAT  147H1  PRELUUK  — PREPROCESSOR  FUR  SEMlLOUF 
lX,bA10//21H  UPT1UNS  IN  EFFECT  --// 

20H  MATRIX  GENERAT lUN  ,T30,A3/ 

20H  DYNAMICS  ,T30,A3/ 

d OH  DISTRIbUIED  LOAD  ,T30,A3/ 

20m  tCHU  ,T30,A3/ 

20M  PLOT  / T 30 » A3/ 

20H  DEBUG  f I 30  » A3/ 

2UH  INTtGRATiUN  RULE  , T 30 , 1 1 , 1 HX , 1 1 / 

20h  INTEGRATION  FACTUR  T27,Fb,4) 


tLEMENTS// 


IF  (ECHO)  wRlTE(b,3S) 

3b  FORMAT  l///lbX,27Hb  ULK  DATA  ECHO) 
RETURN 

40  CALL  SYSTEM(S2, 20H  BULK  DATA  MISSING  ) 

END 
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on  non  non  non  non  nnnn 


SUHKUUllwE  INPU1 


KLAUS  bULK  DA  I A DttK,  iivilLRPKtTS  CARDS  PERTINENT  1U  SEMI LDCJF  , 
EChUtS  OIhEkS,  DUES  SUmE  EhKUK  CHECKS  AixD  TAbLE  SETUPS. 

CUMMON/CARD/NAME,CAKD(400)  , MXCAKD, NC AKD, NT  YPE,NSUB,NO 
CUMMON/CUNTKL/ECHU,ERR,MATGEN,DYN, APPLD,PLGl , DBUG , BAD , NCORE , 

, NT  MASS , NASTY 

LOGICAL  ECHO,  ERR,  MATGEN,DYN,APPlD-,  PLOT  ,DBUG,  BAD 

COMMON/LOC/LCORD,LGR1D, LSEQ , LSHE LL , LBE AM , LPShE L , LPSHE L X , LPBE AM, 
. LMA  T , LPSPC 

CUMMUN/N/NCORD, NUMNP, NSHELL , NPSHEL , NPSHEL X , NSHL T Y , NBEAM, NPBE AM, 
. NBMT Y , NMA  T , NSPUlNl , MAXGKD, NDOF 

COMMON  All) 

LTYPE=1 

FETCH  UP  A BULK  DATA  CARD 

10  CALL  FETCH 

IF  INTYPE)  9000,10,15 
15  IF  (NTYPE.GE.LT YPE)  GO  TO  30 

IF  (.NOT. ECHO)  PRINT  1 7 , NO, N AME , ( C ARD l I ) , I s 1 , NC ARD ) 

17  FORMAT  1110,1H.,5X,9A8/124X,8A8)) 

PR1NI  20, NO 

20  FORMAT  (42h  ***  BULK  UATA  UUT  OF  ORDER,  IGNORING  CARD, 15) 

EKR= , TRUE , 

GO  TO  10 
30  LT  YPE  = N I YPE 

SEMILOOF  CARD  RECOGNIZED.  BRANCH  TO  APPROPRIATE  ROUTINE 
GO  TO 

.(  100, 200, 300, 900,500,60 0,700, 80 0,90 0,  1000, 1100,  1200,  1300,  1400), 
.NT YPE 

CURD2X  CARDS 

100  IF  ILCOKD.EU.O)  LCURD=NCORE 
CALL  M0RCUR115) 

CALL  CORDIA(LCORD) ) 

GU  10  10 

GRID  CARDS 

200  IF  (LGR1D.EQ.0)  LGR1D=NC0RE 
CALL  M0RC0R113) 

CALL  GRID(AILC0RD),A(LGR1D)) 

GO  TO  10 


SEQUENCE  CARDS 
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ooo  OOO  D D D ODD  ODD  ODD 


iOO  IF  (LStO.Lu.O)  LSLG=NCURt 

IF  (lS£U.LU.NLuKU  LwLL  MUKCURINUMnPJ 
CALL  StuUP IA ILStU) , A (LbKlU) J 
GU  1U  10 

CLUUf-«  AND  cloof6  CARDS 

*4  U 0 IF  (LSHfc.Ll.tQ.OJ  LSHELL  = NCURE 
CALL  M0RC0k(l2) 

CALL  ISHtLLUCLSHLLL)  fAlLGRIDJ) 

GU  TU  10 

CLUUF3 

500  IF  UbtAM.fcQ.OJ  LbEAM=NCOkt 
CALL  MURC0R(21) 

CALL  lbtAMlA(LbEAM) , A(LGRID) ) 

GU  TO  10 

CUNGHUtNCt  CARDS 

600  CALL  CUNGR(A(LGRlD),ACLSHfcLL)»A(Lb£AM)) 
GU  1U  10 

PLUUF 

/00  IF  (LPSHtL.EU.O)  LPSHtL=NCURE 
CALL  MURCUK(J) 

CALL  IPSHELlACLF'ShEL)  ) 

GU  IU  10 

PLUUF  X 

600  IF  l LPShLL X , t J . 0 ) LPSHtLX=lMCORE 
CALL  MURL0R(20) 

CALL  lPSMtLX(A(LPSHELX) ) 

GO  1U  10 

PLUUF 3 

R 0 0 IF  (LPbLAM.EGI.O  J LPbE AMsNCURE 
CALL  MUkCOR  C 9 ) 

CALL  IPbtAMC A(LPbLAM) ) 

GU  1U  10 
C 

C MAH  UR  MAlb 

C 

1000  IF  (LMAI.EU.O)  LMA|=NCURE 
CALL  MUKCOR(b) 
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nrn  oor^  n n o 


LaLL  i HA  1 ( A ( LMa 1 ) ) 

GU  IU  10 

c 

L PLOAUA 

C 

1100  CALL  1PlUAI>IA(LGRII>)  ) 

APPLOS, 1 RUE, 

GO  TU  10 

THL00F 

1200  CALL  llhlCKt A(LGRID) ) 

GU  1U  10 

PARAM 

1300  CALL  PARAV| 

GU  TO  10 

SPU1NI 

1000  CALL  ISPN1 
GO  TO  10 

9000  LPSPC=NCORt 

CALL  MUHCUR(NUMImP) 

IF  ILSEU.NE.O)  RtTURN 

LSEU=NCORE 

CALL  MORCOR ( NUMNP ) 

CALL  MOVER(0,0,A(LSEQ)»1»NUMNP) 

RETURN 

END 
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>o  a v a kt  & \j~  t\j 


SUbKUUllUt  REICH 


C 

C 

C 

C 


KtADS  A BULK  UATA  CARU/  PLUS  ANY  CUN  1 1 NUA 1 I (JNS / AND  CHtCKS 
ACA1WSI  LIST  UR  KNUftN  CARDS 


COMMUN/CUNTRL/ECHO/ ERR/  MAT  GEN/ DYN/ APPLD/  PlOT , DBUG, BAO , NCORE / 
. . n I MASS  f NAS  1 Y 

LUGICAL  ECHO/ ERR / MA T GEN / DYN / APPlD /PLOT/ DBUG/ BAD 
COPMQN/CARU/NAME, CARD l 400) /MXCARD/NCARD/NTYPE  /NSUB/NO 
DIMENSION  BUFFER18J 

U1  PENSION  LL(20)/NN(20)/MM(2Q)/MECH(20) 

LOGICAL  UUP 

LOGICAL  MECH,FULL 

UA1A  PLUS/ST AR/1H+, 1H*/ 

DATA  LL/8HC0KD2R 
BHC0RD2C 
8NC0RD2S 
8HGR1U 
8HGK1D* 

8HSEGGP 
8HCL00F8 
BhCLOJFb 
8HCL0UF  3 
8HC0NGK 
8HPL00F 
8HPL0UF  X 
8HPLOUF3 
8HMAT 1 
8HMAT8 
SHPLUAUa 
8HTHLUUF 
8HPARAM 
8HSP01NT 
DATA  NN/1, 

1/ 

1/ 

2/ 

2/ 

3/ 

4/ 

4/ 
b/ 


7 / 

8 / 
9, 
10/ 
10/ 
1 1 / 
12/ 
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. IS, 

, 1 A/ 

DATA  MM/1, 

t 2 # 

• 3# 

9 1 f 

• 2 r 

• If 

• If 

• ^ f 

• If 

• If 

• If 

9 If 

9 If 

9 If 

9 2f 

9 If 

9 If 

9 If 

9 1/ 

DATA  MECh/ 

9 .TRUEt, 

• 9 1 RUt  * § 

• * T RUE  1 , 

, .FALSt., 

, .FALSt., 

. .TRUE., 

. .FALSE., 

. . F AL SE  i , 

. .FALSE., 

. .FALSE., 

. .FALSE., 

. .FALSt., 

. .FALSE., 

. .TRUE., 

. .FALSE., 

. . F AL  SE  . , 

. .FALSE., 

, .TRUt., 

. .TRUE,/ 

DATA  KN0wN/19/ 

DATA  FULL/. FALSt./ 

IF  i. NUT. FULL)  RE AD ( 1 , 1 0 ) BUFFER 
10  FORMAT  (8A10) 

IF  (tUFll).NL.O.UK.BUFFER(l).EQ,/HENDDAlA)  60  TO  200 
FULL=. TRUE. 

DECODE (BO, 20, BUFFER)  NAME , ( C ARD ( I ) , 1 = 1 , B ) , C , CONT 
20  FORMAT  ( 9A8 , A 1 , A 7 ) 

IF  (NAMt.tU.  bFtF’LQOF  2 ) NAML=6HPLOOF  X 
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o o o n o o 


CALL  LbHil-  i (card,  t>) 

IMU  = IMU  + 1 

FULL=. FALSE. 

DU  3 0 K=l,KNUftN 
IF  (IxirtML.tD.LUK ) ) GO  '10  «0 
30  CUNllNUt 
NT YPL=0 
NSUb=0 
DUP=.TRUE. 

GO  10  bO 
<40  NTYPt=NN(K) 

NSUb=MM(R) 

UUP=MtCn(K) 

PASS  1 HI S CARD  TO  NASI  RAN 

bO  IF  (DUP)  *R1TE(3,20)  NAMt , (C ARD l I ) , I =1 , 0 ) , C , CUNT 
AND  ECHO,  IF  DtSIRtU 

IF  (tCHU)  PRINT  60, NO, NAMt, ( C ARD ( I ) , I = 1 , 8 ) , C , CONT 
SO  FORMAT  (110,1H.,5X,9A8,A1,A7) 

L2  = 8 

70  RtAD(l,10)  bUFFtR 
FULL=. TRUE. 

IF  (LUF  (17  .NF..O)  GO  10  200 
L 1 =L2+ 1 
L2=L 1 ♦ 7 

bO  F0RMA1  ( A1 , A /, 8A8, A 1 , A7 ) 

DECODE (80, 80, bUFFER)  CHAR, CUNT 2, ( C ARD ( L ) * L = L 1 , L2 ) , t , CONT 4 
CALL  LSH1F 1 ( C ARD ( L 1 ) , 6 ) 

IF  (CHAR, Nt. PLUS. AND. CHAR, NE. STAR)  GO  TO  120 
FULL- . F ALSt . 

IF  (DUP)  WRITt(3,80)  CHAR , CONT 2 ,( CARD ( L )/ L =L 1 , L2 )• C # CUNT 3 
IF  (ECHO)  PR1N1  90, CHAR, CUNT2,  (CARD(L)  ,L  = Ll#L2)  ,C, COM3 
90  FORMAT  ( 1 6X , A 1 , A7 , b A8 , A 1 , A7 ) 

IF  (CUNT2.EQ.CUNT ) GO  TO  110 
PRINT  100, NO 

100  FORMAT  («8H  ***  CUNTINUAI10N  CARD  OUT  OF  ORDER  FUR  CARD  NO,,Ib) 
L 1 =L 1 “8 
L2=L2-8 
GO  TU  70 
110  CUN  1 =CUN  T 3 
G010  70 

120  NCARD=L2-b 

IF  (NCARD.LE.MXCARD)  RE  1 URN 
PRINT  130, NO 

130  FORMAT  (13H  ***  CARD  NO.,lb,10H  1000  LONG) 

IF  ( . NO  I .ECHO)  PR1N1  60 , NU, N AMt , ( C ARD ( I ) , I = 1 , 8 ) 

L2=MXCARD 
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Nt  T UKn 

c’OU  (M  1 Y P t - • 1 
Ht  1 UKiJ 
tlVU 
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SUBKUullht  LSHlF  UL  AKD,  N) 

DlKtuSlUN  CAKUU) 
lMtbtK  BLANK 

L) A 1 A MASK/77  00  O0  00  00  Oo  00  00  00  000/ 
O A 1 A BLANK/ 1 L / 

DU  20  1 = 1, N 
DU  10  J=l,6 

IF  UCAKUll) .AND. MASK! ,NE. BLANK)  GO  10  20 
CARDll)=SHIFT (CAKDll) , b ) 

10  CONTINUE 
20  CUNllNUt 
KtTUHN 
tND 
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KtAL  *UnL!1UN  DLOGt  (1  I LM,  I YPt,tKR) 
IMPLICIT  1NT  tGtk  (A-n 
LOGICAL  DAU,tkH 
OlMtNSlUN  CHAK(B) 

UA1 A PLUS, MINUS, ZtRU, N 1 Nt , BL ANN , £ , PER  1 UD/ 
. Ih4, 1H-, 1H0, 1H9, lh  ,lHt,lh./ 

DtCUDE (8,b,ITtM)  CHAR 
b FURMAT  ( 8 A 1 ) 

GU  1U  (100,200, 300) , 1 YPE 
C 

C INTtbtR 

C 

100  L = - 1 

BAD=. FALSE  . 

DO  110  1=1,8 

C=ChAK(V-l) 

IF  (C. Nt. BLANK. AND. L. LT .0)  L= 1- 1 
IF  (C.GE.ZERU. AND. C.Lt. NINE)  GU  TO  110 
U (C.EU. PLUS. UR, C.EQ. MINUS)  GU  TO  110 
IF  (C.EU.bLANK)  GO  10  110 
BAD=,TRUt, 

110  CONTINUE 

IF  (BAD)  GU  TO  «00 
IC=I TEm 

IF  (L.G1.0)  1C  = SH1F  1 (11EM,60-b*L) 
DECODE(B, 120, 1C)  M 
120  FURMA1  (18) 

DCUDt=M 

Go  iu  aoo 

C 

C FLOATING  P01N1 

C 

200  BAD=. FALSE. 

L = -l 

DU  210  1=1,8 
C=CHAR(9-1) 

IF  (C. Nt. BLANK. AND, L. LT .0)  L=l-1 
IF  (C.Gt.ZtRO. AND. C.Lt. NINE)  GU  TU  210 
IF  (C.EU, PLUS. OR. C.EQ. MINUS)  GO  TO  210 
IF  (C. tO. E. OR. C.EQ, BLANK)  GO  TO  210 
IF  (C.EU, PERIOD)  GU  TO  210 
8AC=. TRUE, 

210  CONTINUE 

IF  (bAD)  GU  TU  a00 
I L = 1 T EM 

IF  (L.GT.O)  1C=SH1F 1 (1TEM,60-B*L) 

C CROSS  YOUR  FINGERS 

DECODt(8,220, IC)  DCODE 
220  FURMAT  (E8.0) 

GU  TO  aou 
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c 

c 

L 


ALHn* 


iUU  OAU=.F ALbt. 

i F (ChAKll ) .NL.dLANKJ  GU  10  ilb 
DO  ilu  1=2, b 

IF  (CHAKIU  .Nt. BLANK)  GU  10  320 
31  0 CONTINUE 

31b  ENCUUE(b,S,DCUDE)  CHAR 

Gu  iu  «ou 

320  11=1-1 

ENCODE l b, b , DCUDE  J l CHAK  t.  J ) , J = 1 , 6 ) , (bLANK,  J=1  , 1 1) 
AOU  Ekk=EKR.UN.BAD 
RE  1 URN 
END 
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non  roc 


Kt  Al  FUNCTION  UCUUE2( 1 lEN.  I YPE.EKk) 

1MHL1L1I  IMEbth  (A -l) 

LUGHaL  dAD.Ekk 
DlPENSlUN  1TEM(?) 

DIMENSION  CHaK  lib) 

DIMENSION  TEMP(2) 

DAI  A PLUS . MI NUS , It RU . NINE,  BL ANK , E , PER 1UD/ 

, lHf. 1H-. 1H0, 1H9, 1H  . 1 HE » 1 H , / 

DECUDEUB.  lOflHM)  CHAR 
10  FORMAT  IbA  l f / BA  1 ) 

GO  TU  (100. 200. 300). TYPE 

iNTEGEk 

100  L=-l 

dAD=, FALSE, 

DO  110  1 = 1#  1 to 
CsCHARU7-l) 

IF  1C. Nt. BLANK. AND.L.LT .0)  L = l-1 
IF  IC.GE. ZERO. AND. C.LE. NINE)  bU  TO  110 
IF  1C. ED, PLUS. OK. C, ED. MINUS)  GO  TO  110 
IF  IC.EQ, BLANK)  GO  TO  110 
BAD* , T KUt . 

110  CONTINUE 
DCODE2=U 

IF  IL.tU.-l)  Rt  T URN 
IF  (BAD)  GO  TO  <400 
DCLUE2=0 

IF  (L)  Ib0.1«0,l30 
130  Llb=lb-L 

ENCODE l 1b. 2«0. TEMP)  ( BL AnK. 1 = 1 . L ) . ( CHAR ( 1 ) . 1 = 1 . L 1 6 ) 
GO  TU  ISO 

1 440  ENCODE!  lb. 200. 1EMP)  CHAR 
150  DEC0DEC16. 270. TEMP)  DCODE2 
lbO  GO  TO  000 

FLOATING  POINTS 

200  BADs, FALSE, 

L = -l 

DO  210  1 = 1.  lb 
C=CHAR(17-I) 

IF  (C.NE. BLANK. AND.L.LT .0)  L=l-1 
IF  (C.GE.ZERU. AND. C.LE. NINE)  GO  TO  210 
IF  (C, ED. PLUS. OR. C.EQ, MINUS)  GO  TO  210 
IF  (C. ED. BLANK, OR, C. ED. E)  GO  TO  210 
IF  (C. ED. PERIOD)  GO  TO  210 
BADs.TRUE. 

210  CONTINUE 

IF  (BAD)  GO  TU  U00 
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0COUt2=0 

If-  (L)  260,2bo,230 
230  L 1 b = 1 b-L 

tlMLuut  I lb#  24  0 » 1 LMH  ) (bLANrv,  1 = 1 ,L)  , l CHAR  ( 1 ) , 1 = 1 ,L1  b) 
240  FORMA | UbAl) 

GO  10  2bo 

2b0  ENCOOtUb,  240,  TEMP)  CHAR 
2o0  DECODt(lb,27G,TtMP)  DCOOE2 
270  f-ORMM  (E 1 6 , 0 1 
200  GO  Hi  400 
C 

C ALPHA 

L 

300  bAU=. FALSE, 

IF  (ChARCl ) ,NE.  BLANK)  (iU  l(J  31b 
00  31o  1=2*  16 

IF  ICHaR(I)  .NE.bLANK)  GO  10  320 
3io  coni inoe 

31b  ENCOUE(6,240,OCODE2)  (CHAR ( I ) , Is  1 , 0 ) 

00  10  400 

320  IF  U.GT.9)  GO  10  330 
17=1+7 

tNCOUt (0,240,OCGDt2)  l CHAR ( J ) , J = 1 , 1 J ) 

GO  10  400 
330  14=1-9 

ENCOOE(6,240,OCOUE2)  ( CHAR ( J ) , J = 1 , 1 b ) , ( bL ANN , J= 1 , 1 9 ) 
400  EHK  = EKR.GR.bAl> 

RE  1 ORN 
EhO 
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Ul^twblUiM  A (,  3 ) 
iF  UltHt.tU.lJ  HtlUKN 
IF  (llVPb.^t.2)  <>U  Tu  10 

lhtl  A = A(£<»*i,l‘4lbVi7/lttO 

Al2)SMll)*SlNllHtTA) 

A l 1 ) sA  1 1 ) *CuS  t iHtlA) 

HI  I UK W 

10  IF  ( 1 T fHt.fcE.i)  KtTUKN 

IhtTASAl^JAi.l^iSVdT/lbO 

PHisAi3)*i.  iuib9*?/ibu 
Al3)=AC 1 J *CUSll HL1 A) 
PsAU  )*SlN(THtl  a) 
AlcijsP^SlNlKHl  ) 

A l 1 )sH*CUS(PHl ) 

KfclUKW 

E.NU 
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aUtikuUl  iNt  I *i«  1 h A l I , A , D,  L J 
0]  (“itUbl  On  1 
DU  1 0 J = 1 , 3 

lu  i l J » iJ=D(  J)-A(.  J J 
L ALL  wUKMAL  (Hhi)j 
CALL  tKUSSU(l»3)»!(l»2)»Tll»2)J 
CALL  NUKMAl n (1 ,i) ) 

CALL  LKOSSlHl»2)fTU»3)»T(l»l)J 

kfc.  I UKim 
LNL 
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bUbnUO  I 1 'Jt  C^Ubb  l A » b » L ) 
UlKtNblUn 

L«?  = -l«CU*b(3)-DU)*AliJJ 

C3  = All ) *tJl2)»bU  )*M2J 

Cl  1 )=C1 

C12)=L  d 

L(i)=Li 

Nt IUKN 

LNU 
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SUbHUUflUt  nUKWALIX) 

Ulf^tUSlUN  Xli) 

tsbUhl  lAll  )**U  ) + Xl<?J*xUJ*Xli)*xl3)) 

If-  It.tu.O)  KtlUKN 

XlU=*UJ/t 

X(2):xU)/t 

X(3>=A(i)/t 

KtTUKN 

tNO 
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rnrr 


SubRUUTInL  UJRDl TRAnS) 


lultKPKtTS  CORD  BUlr\  L>A  I A LARDS  AND  St  I S UP  COORDINATt 
1 kANSFOkMA  11  ON  1 AbLt  S 

DIMtNSlUN  |RANS(3,S,1) 

COWMON/CGNTRL/tChu, tRR,MATGtN,DYN, APPLD, PLOT ,DBUG, BAD, NCORt, 

. rtTMASS, NASTY 

LOGICAL  tCHO,tRR,MATGtN,DYN,  APPLD, PLO 1 , DBUG, BAD 
LUMMUN/C ARO/NAMt ,CARD l <400 ) , MXCARD,NC ARDENT YPt,NSUb,NO 
COMMON/N/NCORD,NUMNP,NShtLL,NPSHtL,NPSHtLX,NSHLT  Y,Ndt AM,NPbtAM, 
, NBM1 Y,NMAT,NSPUlNT ,MAXGKD,NDOP 

Ul^tiMSIUhi  AA(3),db(3),CLl3) 

IF  (NCAKu.LI .9)  DO  TO  20 
NCQRD=NC0RD+1 

TRANSC1, 1 ,NCORD)=DCODt(CARD, 1,BAD) 

T R ANS ( 2 , 1 , NCORD ) = NSUb 
DU  10  1=1,3 

AA(l)=uCUDt(CARDl2*I) ,2, BAD) 
dB(l)  = DCUDt(CARDlS-H),2,dAD) 

10  CCU)=DC0Dt(CAF<D(b+I),2,BAD) 

J=DC0Dt(CARD(2) , 1 , B AD ) 

BAD-BAD. OR. J.Nt.O 
IF  ItoAD)  GO  TO  20 

CALL  TMATKX( TRANS U , 3 , WCORD ) , A A , dB , t C ) 

CALL  MOVtRlAA, 1, 1RANS11 ,2,NC0RD) , 1,3) 

Rt  T URN 
20  CALL  BUM 
Rt I URN 
LND 
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C 

L 

C 


C 

C 

C 


C 

C 

C 


bUbKUullwE  Gw  1 0 l CUkO  , GkO  ) 

u l Mt*»a  1 iji\i  Co*  J l 5 , 5 » 1 ) » okO 1 1 3 , i ) 

lMfcKPktlS  GKlu  CAkub  A xU  bETb  UP  TAttLtb 

COMMON/ CUNT  RL/ECh|j,ERR,  MA  TGE  N , 0 YN , APPlD,  PLO  T , ObUG , b AD , NCURE  , 

. tf.TMAbS, NASTY 

LOGICAL  ECMU,EKK,MATGEN,0YN, APPLO, PLOT , OBUG,  b AO 
LUMMUN/CARD/ NAME, CARD (900),  MXCARD,NC  ARD,NT  YPt,NSUB,  NO 
CuMMUN/N/NCURD,NUMNP,NbRELL,NPShfcL,  NPSHEL X , NSH( T Y , NBE  AM,  fyiPBE  AM, 
. NbMTY,UMAT  , NSPUIM  , MAXGRD,  NDUF 

OlMENSlUN  X Y Z ( 3 ) 

NUNNP=NUMNP+ 1 
bAD=. FALSE, 

IF  (NSUB.tGl.2)  GO  TO  10 
SINGLE  FIELD 

GhD( 1,NUMNP)sDCUOE (CARO l 1 ) , 1 , bAD ) 

GRD(2,NUMNP)=DCODE(CARD(2),  1 ,BAD) 

GRD ( 3 , NO MNP  )=DCOOt(CARu(3) » 2 , BAD ) 

GRD(0,NUMNP)=OCODE (CARD(9) ,2,bAD) 

GRD(5,NUMNP)=DCODE  (CARO  (5), 2,  BAD) 

GRD(V,NUMivP)=DCUDE  (CARO  (6)  » 1 , BAD) 
bRD(10,NUMNP)sDCUDE(CARD(7) , 1 ,bAD) 

GO  TO  20 

DOUBLE  FltLO 

10  GR0(1,NUMNP)=DC0DE2(CARD(1), 1 ,BAD) 

GRD(2,NUMnP)=DC0DE2(CAR0(3) , 1,BAD) 
GkO(3,NUMNP)=DCUDt2(CARD(S),2,bAD) 

GRDU,NUMNP)sOCODE2(CARO(7) , 2, BAD) 
bRD(5,NUMNP)*DCuDE2(CARD(9)  ,2,bA0) 

GRD(9,NUMNP)=DCUDE2(CARD( 1 1 ) , 1 , BAD) 

GKO ( 1 0 , NOMNP )=DCODE2(CARD(13)» 1 ,BAD) 

20  IF  ( ,ixOl  .BAD)  GO  TO  30 
CALL  BUM 
RtTORN 

30  MAXGRD  = MAXO (MAXGRD, IF  IX (GRD ( 1,NUMNP) ) ) 

IF  (NUMNP.EQ.i)  GO  TO  3B 

Nl=NOMIxP-l 

00  32  I — 1 , N 1 

IF  ( GRO  ( 1 , 1 ) ,tU.GRD(  1 , NUMNP)  ) GO  TO  3b 
32  CONTINUE 
GO  TO  3B 

35  PRINT  3b, 1FIX(GR0( 1 , NUMNP)) 

3b  FORMAT  (19M  ***  OUPLICATt  GR10,lb) 

EKR=,TRUE. 

RETURN 
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30  uu  mo  l = l , 3 

i»ROll+b,NUMNP)=GRUl  l +(> , nUMNP) 

40  bKU  1 1 + 1 0,  NUMNP)  =0 
Uk0l2,NUMNP)=0 
URUtO,  NUMNP)=0 

IP  (GkD(2, NUMNP) .Lt.O)  GU  10  00 
JCOHU=lNDEx(CUHD,  nCORD,  1 S , GRD  1 6 , NUMNP  ) ) 

IP  ( JC0RD.U1 .0)  GU  10  60 
M=bRDl 1, NUMNP) 

N=GRD12, NUMNP) 

PRiNl  bO,M,N 

bO  P UkMAT  ( OH  ***  GRlU,iO,37h  Rt.PtRt.NCLS  UNKNOWN  CUORDlNAIt  SYSltM, 
. 10) 
tRk  = , TRUE. 

Gu  10  00 

CONVERT  L0CAT1UN  10  BASIC  COORDINATES 

O0  CALL  MUVtRlGRD(3, NUMnP), 1,XYZ, 1,3) 

CALL  SWING ( X YZ , 1F1 X l CORO (2, 1, JCORD))) 

DO  70  1=1,3 

CALL  SCPR0D13,3, 1 , LORD ( 1 , 3, JCORD ) , X Y Z , XX ) 

GKD(2,NUMnP)sJC0RD 
70  GRD(b+l,NUMNP)=XX+L0RD(l,2) 

00  IP  (GUI)  (9,  NUMNP)  ,Lt.O)  RE  1 ORN 

JCORD=lNDtX(CORD,NLORD, 1 b, GRD (9 , NUMNP ) ) 

IF  (JCORD. bT.O)  GO  TO  00 
IP  (JCORD.GT.O)  RETURN 
MsGRDll, NUMNP) 

N=GRO(0, NUMnP) 

PRINT  bO,M,N 
£RR=. IRUt. 

RETURN 

00  GHD(9,NUMNP)sJCURD 
RETURN 
END 
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SUbKuU  T 1 'M El  SEuGP ISI U, GRU 1 

kE  ADS  SEGUE  NCt  LAKDS 

DIMENSION  SEGKl),GRu(13,  1) 

INTEGER  SEU 

COMMQN/CONI  RL/ECHO,  ERR,mA1GEN,UYN,  APPLD,PLOT  , DBUG , b AD , NCORE , 

, n 1 MASS , NASTY 

LOGICAL  ECH0,ERR,MA1GEN,UYN,APPLD,PL0T  , DBUG , B AD 
COMMON/LARD/NAME,LARD(«00),MXCARD,NCAkD,NTYPE,NSUB,NO 
COMMON/ N / NCOR D , NUMNP,NSHELL,NPSHEL,NPSEIELX,NSEILTY,NBEAK,NPbEAM, 
, NBM | Y , NMAT , NSPUlNT , MAXGRD, NDOE 

bAD=.E ALSE. 

DU  20  1=1, 7,2 
GR=DCODE  (CARD(i), 1 ,bAD) 

SU=DCODE(CARDll*l), 1,BAD) 

IE  (GR.EU.O)  GO  TO  20 
J=lNDEXlGRD,NUMNP, 1 5 , GR ) 

IE  IJ.NE.-l)  GO  TO  10 
5 bAl)=  . TRUt  , 

GO  TO  20 

10  IE  (SQ.LT.O.UR.SU.GT .NUMNP)  GO  TO  5 
SEUIJ)=SU 
20  CONTINUE 

IE  (DAD)  CALL  bUM 

RETURN 

tND 
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5>Ub«UU  I 1 »v  t 1SHELL  (SHELL, GRU) 

L 

C PROCESSES  LLUJFb  AND  CLUUFo  CARDS 

L 

DIMENSION  SHELL (12, 1 ),&RD(13, 1 ) 

COMMOn/CUN TRL/ECHu,ERR,  MAT GEN,  DYN, APPLD,  PLOT , DbUG , BAD , NCORE # 

. wTMASS, NASI Y 

LOGICAL  ECHO# ERR, MAT  GEN, DYN, APPLD, PLOT  , DBUG, BAD 
COMMON/ C ARD/ N AmE , CARD (400)  ,MXCARD,nCARD,M  YPE  , NSUb, NO 
COMMON/N/nCORD,NUMNP,NSHELL,NPSHEL, NPSHELX , NSHLT  Y , NBE AM, NPbEAM, 
. NdMT Y,NMAT , NSPOlNT,MAXGRD,NDOF 

bAU= , FALSE . 

NSnELL=N3HLLL+ 1 
SHELLS, NSHELL)=0 
SHELL! 10,NSHELL)=0 
NNUD=8 

1 F (NSUb. EG. 2)  NNUD=6 
N2=NNUDt2 
dAD=NCARD.LT  , N2 
DO  10  1=1,N2 

10  SHELL  U,NSHELL)=DCODE(CARD(l), 1,BAU) 

SHELL  11 1, NSHELL)=NSHELL 
SHELLC12, NSHELL)=0 

IF  (NLARD.GE.N2+1 ) SHELL ( 1 2 , NSHELL) =DCODE ( C AKD ( N2  + 1 ) , 2 , BAD  1 
IF  (.Nul.bAD)  GO  1U  15 
CALL  BUM 
KL I URU 

GET  GRIDS 

15  DU  30  i =3  r N2 

L=SHELLll, NSHELL) 

J=INDEX(GRD,NUMNP, 13# FLOAT  CL)) 

SHELLdf  NSHELL)=J 
IF  (J.NE.-l)  GO  TO  30 
PRINT  20,IFIXCSHELL(lfNSHELL))fL 
20  FURMAI  (12H  ***  ELEMENT # 18, 2^H  REFERENCES  UNKNOWN  GRID, 110) 
ERR=, TRUE, 

30  CONTINUE 
RETURN 
END 
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SUbMtU  I 1 IxE  AM,GKU) 

c 

L PRUDES:^  LLUJKi  LAkDS 

L 

DIMENSION  BE A ^ t ^ 1 , 1 ) , GKD (13, n 

CLIMMoN/CUNTRL/ECFIU,  ERK,  MAI  GEN,  DYN,  APPLD,  PLOT  , DbUG , b AD , NCUKL  , 

. rtTMASS, NASTY 

LUG  1 CAL  E CHO, ERK, MAT  GEN, DYN, APPLD, PLOT , DBUG,  BAD 
COMMON/C ARD/NAME,CAkD( A 00 ) ,MXCARD,NCARD,  NT  YPE  , NSUb,NO 
CUMMON/N/NLORD,NUMNP,NSHELL,NPSfiEL, NPShtL X , NSHL T Y , NHL  AM , NPbt AM , 
, NBMT  Y , NMA I , NSPUlNT , MAXGRO, NDOF 

DIMENSION  F 15) 

BAD=. FALSE. 

NDt AM=NBEAM+ 1 
UO  10  I = l,b 

10  bEAM(I,NBEAM)=DCUDE(CARD(l),  1,BAD) 

IF  (BEAM(7, NBEAM) ,EQ,0)  bt  AM  ( 7 , NdE  AM ) = BE  AM  ( t> , NBt  AM ) 

IF  (BEAM(tt, NBEAM)  .LU.O)  BE  AM  ( b , nBE  AM)  = B£  AM  ( b , NHt  AM ) 

CALL  MOVER  (Or  0,  BEAM  ( 1 6,  NbEAM)  ,1,6) 

BtAM(lS,NBEAM)=NBEAM 
IF  (BAD)  CALL  BUM 
IF  (NCARB.LT. 12)  RETURN 
1F=DC0DE(CARD(12), 1 ,BAB) 

IF  (IF . Eu . 0 ) GU  1 U AS 
BAD=BAu.UR. (IF . NE . 1 . AND . 1 F . NE , 2 ) 

IF  (BAD)  GO  TU  100 
GU  TO  (20, 30), IF 
20  DU  22  1=1,3 

22  F (l)=DCODE(CAKD(B+l),2,BAD) 

IF  (BAD)  GU  1U  100 
GU  TU  AO 

30  L=DCUDE(CARD(9), l,bAD) 

IF  (BAD)  GO  TO  100 
J= INDEX (GRD,NGR1D, 13,L) 

IF  (J.EU.-l)  GU  TU  BO 
DU  32  1=1,3 
32  F ( 1 ) =GRD (St  I , J ) 

AO  CALL  SCALAR(F,F,FSU) 

IF  (FSU.EO.O.)  GO  10  100 
FSU=SORI (FSU) 

DO  A2  1=1,3 

A2  BEAM(1B+I,NBEAM)=F(1)/FSU 
AS  CALL  MUVER(0, 0, BE AM ( 9 , NbEAM ) , 1 , 6) 

IF  (NCARD.LE.16)  GO  10  60 
DO  BO  1=17,22 

SO  BEAM(I-8,NBEAM)=DC0DE(CARD(I ) ,2, BAD) 

60  DO  70  1=3, S 

L=BEAM(1, NBEAM) 

J=INDEX(GRD,NUMNP, 13, FLOAT (L)) 

BE  AM ( 1 , NBEAM) = J 
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H IJ.tu.-l)  LU  Hi  bO 
7 U LUlM  1 1 uUl 
Kt  I UkN 

ttU  PKlN)  90,  If-  1 AlDtAMU  , l\»bL«M)  ) #L 

9U  MJKNAI  (12h  ***  tLtME-NT » lb/2AH  RtFtRE.NCE.S  UNKNOWN 
tKH=, 1 KUt. 

RETUkivi 

loo  call  Bum 

HtTukw 

tMJ 
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SUBKUU 1 1NE  CiJNGKtOKU,ShtLL,BtAM) 


PRULtSSLS  CUN^*  LANDS 

DIMENSION  l»Rl)  ( 13, 1 ) , SHELL  l 12,  1 ) , BtAK( IB,  1 ) 

CUMMUN/CUNI  RL/tCHU,ERK,  MAI  GEN,DYn,  APPLD,  PLOT  , DBUG,  BAD,  NCORt , 

, wTMASS, NASTY 

LUG  1 CAL  ECHO,ERR,MA l&EN,DYN, APPLD,PLOT ,DbUG,bAD 
CUMMUn/ CARD /NAME, CARD (400)  , MXCARD, NC ARD,  NT  YPt,NSUB,NO 
COMMON /N/NCORD  , NUMNP , NSHtLL  , NPShE  L , NPSHE L X , NSHLT  Y , Nb t AM , NP  bt  AM , 
t NbMT Y , NMA 1 , NSPUlNT , MAXGRD, NDUP 

EL  1=DCUDE (C ARD  ( 1 ) , 1 , bAD ) 

Jl=lNDtX (SHELL, NSHtLL, 12,EL1 ) 

IE  (J1  .LT  .0)  GU  TU  30 
UU  10  I=2,NCARD 
EL=DCUDt(CARD(l ) , 1 ,BAD) 

IP  (BAD)  GU  1U  10 
IF  (tL.tU.O)  GO  TU  10 
J=lNUtX (SHtLL, NSHtLL, 12, EL) 

BAD=BAU,UR, J ,L 1 .0 

IF  (.NOT, BAD)  SHtLLlll,J)=SHELLlll,Jl) 

10  CONTlNUt 

IF  (BAD)  CALL  BUM 
RETURN 

30  Jl=lNUtX(BEAM,NOtAM, !B,tLl) 

BAC=Jl .LT.O 
DU  «0  I=2,NCARD 
tL=DCUDt (CARD( 1 ) , 1 , BAD) 

IF  (BAD)  GU  TO  40 
IF  (tL.tU.O)  GU  TO  40 
J=lNDtX(ot AM, NBtAM, 1 B , EL ) 

BaD=BAD.0R. J .LT .0 

IF  (.NOT, BAD)  bEAM( IS, J)=bEAM( IS, J1 ) 

40  CUNUNUt 

IF  (BAD)  CALL  BUM 

RETURN 

END 
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SUbKuUliwt  lPSuLLlPbHtLL) 

C 

L PKUUSSLb  PlUJI-  LAUDS  --  SHtLL  PKUPtKllES 

L 

DIMENSION  PSHELL l3»  1 ) 

COP.MUN/LuNlKL/ECHu,ERR,PiAlGEN,DYN, APPLD, PLOT , DBUU, BAD, NCURE * 

, fllMASS, NASTY 

LOGICAL  ECHO,  EkK,MA  1 GE  N , L)  Y N , APPLD , PLUT  , DBUG , B AO 

CUPMUN/CAkD/NAME,CAKDl400),MXCARD,NCARD,NT YPE,NSUb,NO 
CuPMUim/im/NCORl)#  NUMNP,  nSHELL,  NPSHEL,  NPSHEL X,  NSHLT  Y , N8EAM,NPbEAM, 
. NOMTY/NMAl , NSPOlNl # MAXGKDf NOUf 

8Ab=,H  ALSE. 

NPSntL=MPSHEl+ 1 

PShELL  ( 1 ,i*PSHE  DECODE  (LARU(  1 ) , 1 , bADJ 
PShELLl2,NPSHEL)=DC0DE(CAKD(2)  , 1 ,8AD) 

PShELL  13, NPSHEL) =OCODE (CARD  13) ,2,bAD) 

U IbAD)  CALL  bJM 

RETURN 

tND 


307 


SUbkUUT  1 nE  1 PSmLLX  ( PbHLLU  ) 

L 

C PRUCtbSEb  PLOJFx  LAnUb  --  ANISUTRUPIC  ShtLL 

C 

DIMENSION  PSHELL  (20  , 1 ) 

CUP.MUw/CUNTRL/ECHU,ERR,MATGEN,DYN,  APPLD,PLOT  ,DbUG,bAD,NCURE, 

. «1MASS»NASTY 

LOGICAL  ELHO,EkR,MATGEN,DYN, APPLD,PLUT ,DbUG,bAD 

CUMMUN/N/NCDRD, NUMNP, NSHELL,NPSHELf NPSHELX , NShLT Y , NBE AM, NPbEAM, 
, NbMTY, NMAT , NSPOINT , MAXGRD*  nDUF 

CUPiMUN/CARD/NAmE,CARD(4  0Q)  ,MXCARD,NCARD,NTYPE,NSUb,NO 
dAU=,  FALSE. 

IF  ( NC  ARU , L T ,7)  GU  !U  Mb 
NPSHELX=NPSHELX+1 

PSHELL ( 1 ,NPShELX )=DCOUE (CARD( 1) , 1 , BAD) 

DO  10  1=2,7 

10  PSHELL(l,NPSHELX)=DCODE(CARD(l),2,bAD) 

PSHELL (20, NPSHELX )=DCODE (CARD (9) ,2, b AD) 

CALL  MOVER (0,0, PSHELL (6, NPSHELX), 1, 12) 

IF  (lNCARU.LT.lb)  GU  TO  3b 
DO  20  1 = 10#  15 

20  PSHELL ( 1 -2, NPSHELX )sDCUDE(C ARU (1), 2, BAD) 

IF  (NCARD.LT ,23)  GU  1U  3b 
DU  30  1=16,23 

30  PSHELL l 1-4, NPSHELX )=UCUDE l CARD l I ) ,2, bAD) 

3b  IF  t.(NUT.bAD)  RETURN 
«0  CALL  BUM 
RETURN 
END 
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SUOKUUllwt  1 PDt  AM  ( Pot  ANi  ) 

L 

C PKULtbbtb  PLUJf-i  LAnDb  --  OtAM  PROPLKIitS 

L 

DIMENSION  PbtAM(9,  1 ) 

CUMMUN/CONTRL/tLHU.ERRf MATGtN.DYN, APPLD,PL01  , DbUG , BAD , NCOKE  # 

, wTMASS, NASTY 

LUG  1 CAL  tCHU,tRR,MATGtN,DYN, APPLD, PLOT , UBUG , BAD 
COMMON /CARD/ N A Mt#LARD(900)  »MxCARD»NCARD»  N 1 YPE,NSUb,NO 
COMMON/N/NCORU,NUMNP,NSHELL,NPSMtL,NPSHELX,NShLT Y , NOE AM, NPbt AM, 
, NbMTY/NMAl  ,NSPUlM  , MAXGRD,NDOF 

NPbt AM=NPbtAM+ 1 
OAu  = ,F  ALSt  . 

Pot  AM  L 1 , NPBEAM)=DCUDE (CARDll  ) , 1 , bAD) 

DO  10  1=£,B 

10  PBtAM(l,NPbEAM)=DCODt(CARDU)»2»BAD) 

PBEAM(9,NPBtAM)=0 

IF  (NCARD,&£,9)  PbtAM(9,NPbEAM)=DC0Dt(CARD(9) ,2,6AD) 

0AU=BAD,UR.PBEAM12, NPBtAM) .Lt.O 

IF  (BAD)  CALL  BUM 

Rt 1 URN 

END 
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i>Ut)KiJu  r lut  ] MA  1 l xmA  I ) 

l)  1 M.  In  i>  I Urn  XMAI  (.  6 , 1 ) 

CUMmun/LUNI  RL/EChu,  ERR#  MA1GEN,DYN,  APPLD,PLGT  ,L>bUG,bAD,NCURE  , 

. *lMASS,NAi>l  t 

LUG  1 CAL  EChl),ERR,MAIGEN,L>YN,  APPLU,PLU1  / UbUG , BAD 
CUMMUN/C  AKO/NAmE  ,LARD(AUO)*MxLARU»NCARD»NT  YPE,NSUB,NU 
CUMMON/n/NCURD,  NUMNP,  NSrtELL  ,NPSFtEL>  NPSHELX,  NSF1LT  Y , NBE  AM,  NPBEAVI, 
, NBM  T Y , NMA  T , NSPuINT , MAXGRO, NDOF 

REAL  NU 
NMA 1 = NMA T + 1 
BAD=. FALSE. 

XMAT  11,nMAT)=DLUUE(CARL>11),  l,bAD) 

IF  (NSUB.EU.2)  GU  TO  10 
t = UL0UtlCARUU)  ,2,bAD) 

G = OCUl)ElCARD(3)  ,2, BAD) 

NU  = L>CUUE  ICARDI4  1,2, BAD) 

RH0=DCUOElCARDlbl,2,bAD) 

IF  (G.Eu.O)  G=E/ 12* C 1 + NU) ) 

IF  (NU.EG.O)  NU=E/l2*Gl-l 

BAU=bAD.OR.NU.GE..b,OR.NU.LE.-l 

IF  l.NUl.bADJ  GU  1U  b 

CALL  DUM 

RETURiv 

b XM  A T 1 2 , nMA  1 ) =E/ t 1 *»NU*NU ) 

XMAT  l 3>NMaT)=NU*XMA  H2,  NMA  T) 

X M A 1 14,I\IMAT)=XMA1  (2,  NMA  1 ) 

XMAT  ( b , N M A T )=G 
XMAT (b, NMAT ) =RHU 
RETURN 

10  DU  20  1=2,6 

20  XMAI  U,NMAT)=DCODElLARD(n,2fBAl>) 

IF  (BAD)  CALL  t>UM 

RETURN 

ENU 


310 


SubRUUlINt  IPLOmOIGRD) 


c 

L PhUCtbbtb  PLUAD4  LAkDb  --  PhtbbUKtb  BY  GRID  HOlNlb 

l 

UlMublUN  GROl 1 3,  1 ) 

CUKMON/CuNlRL/tLHU, EkR,MAlGtN,DYN, APPLD,PLUl  , DbUG , bAD , NCORE  , 

. ft  T MASb , N Ab 1 Y 

LOGICAL  tCHU, ERR, MATGEN,UYN,APPLU, PLOT  , DBUG, BAD 
CUMMUN/CARD/NAmE,CARD(«00  ) , MXC ARU , NC ARD , N T Y PE , NbUb , NO 
CUMMON/n/nCORD,  WUMNP,  NSHELL,  NPbhEL,  NPbFtE  L X , NSFTLl  Y , NBE  AM,  NP6E  AM, 
. NbMl  Y , NMA  T , NbPUlNl  , MAXGRD,  NDOF 

bAD=.F  ALbt . 

V ALUE=DLUDE  (CARDl2),2,bMD) 

TnRu=UCuUE  (CARLHU  ) , i,  bAD) 

IE  (.  iHRU.EU.UHTHkU)  GO  10  100 
00  30  1=3,6 

GR=OCOOE ICAROll ) , 1 , 6 AO) 

IF  l.UOI.bAO)  Gu  10  b 
CALL  BUM 
GO  10  30 

b IF  IGR.EU.O)  GO  TO  30 
J=1NDEX(GRD,NUMNP,  13, GR) 

IF  (J.Nt.-l)  Gu  TO  20 
PR  INI  10, IF 1 X ( GR  ) 

10  FORMA  l ( 40H  ***  PLUAOR  CARO  REFERtNCEb  U N K N u ft  N GRID, 16) 

LRk=, TRUt. 

RE  1 URN 

20  GRO( 12, J)=vALUE 
30  CUNilNUt 
RETURN 

100  GRl=0C0Ot(CAR013), 1,BAD) 

GR2=0C00t(CARD(b) , 1 ,bAO) 
bAD=bAU. OR. GR2.LT , GR 1 
IF  C. NUT. bAD)  GO  TO  110 
CALL  bUM 
RETURN 

110  J1 =1N0EX1GRD,NUMNP, 13,GR1 ) 

J2=lN0tX(GRD,NUMNP, 13,GR2) 

GRsGRt 1 

IF  (Jl.GT.O)  GU  10  120 
PRINT  10, J1 
bAD=. TROt. 

120  IF  (J2.GT.0)  GO  TO  13o 
PRINT  10, J2 
bAD=. TRUt, 

130  IF  ( .NUT .BAD)  GO  TO  140 
CALL  BUM 
RETURN 

140  J=INUtX(GRD,NUMNP, 13, GR) 

IF  (J.EU.-l)  GU  TO  1 bO 
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SUbKUU  I 1 ML  llMlLKlGKD) 

D 1 F'E NS  1 l)N  GRD(13»1) 

C 

C PROCESS  1HLJ0F  CAkDS  (SmELL  TMCKNESS  HY  NODE.  POIM) 

C 

LUMMOn/LONTRL/ECHO,ERR, MA1GEN,DYN, APPLD,PlGT ,DBUG,bAD,NCORE, 

. MMASS, NASTY 

LOGICAL  ECHO, ERR, MAT  GEN, DYN, APPLD,PLOT , DdUG,bAD 
CUKMUN/CARD/NAME , CARD  (400) , MXC ARD , NC ARD , NT Y PE , NSUB, NO 
CUPMON/N/NCORD, NUMNP, NSRELL, NPSHEL*  NPShtLX,NShll  T , NBE AM, NPBE AM, 
, NbMT Y , NMAT ,NSPOlNT ,MAXGKD, NDOF 

bAD=, false  . 

VALUE=UCuDE(CARD(2)»2>bAD) 

ThKU=DlUDE(CARD(4),3,bAD) 

IF  (1HRU.EGI.4HTHRU)  GO  10  100 
DO  30  1 = 3,8 

GR=DCUDE(CARD(1 ) , 1 , H AD ) 

IF  (.NOT. BAD)  GO  TO  5 
CALL  bOM 
GO  10  30 

5 IF  (GK.EU.O)  GO  TO  30 
J=INDEX (GRD, NUMNP, 1 3, GR ) 

IF  (J.NE.-l)  GO  TO  20 
PRINT  10,IF1X(Gk) 

10  FORMAT  (40H  ***  T HLOOF  CARD  REFERENCES  UNKNOWN  GRID, lb) 

ERR=. TRUE, 

GO  TO  30 

20  GRD ( 1 2 , J ) =V ALUE 
30  CONTINUE 
RE  1 URN 

100  GR1=DC0DEICARD(3),  1,BAD) 

GR2=DC0DE(CARD(5), 1 ,BAD) 

BAD=B AD, OR, GR2.LT ,GR1 
IF  (.NOT, BAD)  GO  Tu  110 
CALL  BUM 
RETURN 

110  J1=INDEX(GRD, NUMNP, 13, GR1) 

J2= INDEX (GRD, NUMNP, 13,GR2) 

IF  (J1.GT.0)  GO  TO  120 
PRINT  10, J1 
BAD- , 1 RUE , 

120  IF  (J2.GT.0)  GO  TO  130 
PR1N1  10, J2 
BADs.TRUE. 

130  IF  (.NO! .BAD)  GO  TO  140 
CALL  bUM 
RETURN 

140  J=INDEX(GRD, NUMNP, 13, GR) 

IF  (J.EU.-l)  GO  TU  150 
GKD( 12, J)=VALJE 
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SUbkUUIlub  PAkAM 

CummUN/CAHD/NAML#  L AkDCUOU  ) , MXCAkD,MCAkD,MnrPL,MbUb,MU 
LUkMOM/LUNTKL/tCnU,Lkk,MAlGtNf D)M, APPlD,PLC1  , DBUG , B AD , NCURt » 
. n 1 MAJjS  t NAB  I Y 

LOGICAL  ttHt),tKk,MAl  UtN,DYN,  APPLD,  PLUT  ,DbUG,BAD 
bAU=,FALSt. 

A=DCUDt(LARD(l) ,3,BAD) 

IF  CA.ML.6Hrt  MASS)  GO  ll)  10 
rtTMASS=DCUDE(CAkD(2) ,2,6AD) 

10  IF  (BAD)  CALL  BUM 
RETURN 
END 
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bUbKOU  l 1 i\iL  1 iv T 

LuM-wuh/CuM  RL/tCHU»  t KK»  MA 1 u£n, D Y N, APPlD, PLC 1 , DBuG, BAD, NCUKt , 

. wlMAt>b#;jAsl  t 

LUG1LAL  LCHU#£KK#MA  I Gt G , D Y U , APPL U , PLO T , DbUG,bAD 

LUMMUiY/N/NCURO,  lYUMNP,  i*SME.LL  , NPSHE L , iyPShLL X , RSHL T Y , Nbt AM, NPBL AM, 
. nBM1Y,NMA1,NSP01M,MAXGRD,iyD0F 

CUMMUiY/CAkD/NAML,CARDl«00)  , MXCARD,  NL  ARD , NT  YPE. , NSUB , NO 
BAD=.F  ALSU. 

IF  (LAKU12)  ,£U.AlilHRU)  GU  10  20 
DO  10  1=2, B 
J=DCUDtlCARDC 1 ) , 1 , b AD ) 

IF  lJ.tU.0)  GU  I U 10 
BAD=dAD,UR.J,Lt,MAxGRD 
NSPOlw I =NSPGlNT ♦ 1 
10  COM  1NUE. 

IF  l BAD ) CALL  BUM 
RE.  1 URN 

20  J 1 =DCUDt ICAWD( 1) , 1 , BAD) 

J2  = DCUl)t(CARD(i) , 1,6 AD) 

BAD  = BA0.Uk.J2.LT.Jl  .Ok.Jl  , LE. , MA XGRD 
IF  (BAD)  GO  TO  30 
NSP01nT  = I\ISP0IM  ♦ J2-J1  + 1 
RE.  1 URN 
30  CALL  bUM 
Kt 1 URN 
tNU 
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roo  n n n non 


bUbKUUl  1 Nt  PkUCtSSIGkID, SntLL, bt AM,  1 StU, 1PSPC ) 

DlMt«<SlUw  Gki  till  i,  1 ) , SbtLLl  1 2*  1 ) , bt  AM  l^i  , i j , lstU(  1 ) , 1PSPC  ( 1 ) 
CUMMOn/LUn  lHL/tLHU,tkk,MAIGEN,DYN,APPLU,PLCI,DHUG,bAU,NCOkE, 

, rtl MASS, NASTY 

LUG  1 CAL  tCHU, tkk,MAT  GtN,UYN, APPLD,PLOT ,UbUG,bAD 

CUP'MGw/N/NCUkD,  NUMNP,  NShELL,  NPSHtL,  NPSHtLX , NSHLT  Y , Nbt  AM,  NPbtAM, 
. NbM]  Y , NMA  T , NSPUI NT  ,MAxGkD,  NUOF 

COMMON/LUC/LCUHD,LGRID,  LSEQ , LSHtLL » Lbt AM, LPSHEL , LPSHEL X , LPbE AM, 
. LMA 1 , LPSPC 

CUMMUN/T1 ILE/T 1TLE lb) 

COMMON  A(l) 

CALL  MUVtk  l»l , 0, 1PSPC,  1 , NUMNP  ) 

C 

C SLGUtNCt  GklD  POINTS 

c 

IF  llSEGll) ,NE.O)  GO  10  10 

LTtMpsNCOKt 

CALL  MOkCOklNUMNP) 

CALL  SuHI lGRlD,AlLTEMP),IStQ) 

NCURt=L  T tMP 

10  IF  l NSHtLL , EG , 0 ) GU  TO  90 
SHtLL  ELtMtNTS 
NSHLT Y=0 

OU  60  1=1, NSHtLL 


FIGURE  OUT 


IF  THIS  IS  A UU AD  OH  TH1 ANGLE 


LNUL>Z  = 0 

IF  ISbtLLl 10, 1 ) ,tU.O)  LN0DZ=6 
IF  ISHtLLlll, D.tG.i)  nshlt Y=NSHLT Y+l 
LK=LN0DZ*2 
KL=LNOOZ+ 1 


IDENTIFY  LOOP  NODES 


DO  SO  K=3, KL , 2 
LL=SHtLLCK,I) 

IF  ILL. EG. 0)  GO  TO  50 
MM=ShELL l K+ 1 , I ) 
NN=SHELLIK+2,1) 

IF  IK.EQ.KL)  NN=SHELL(3,I) 
IF  l . NO T . PLOT ) GO  TO  35 


IP1 

= 10* 

SHELL ( 1 , I ) ♦K-2 

IP2 

= 1P1 

♦ 1 

LLL 

=GK  1 

Dll 

, LL  ) 

MMM 

= GR  I 

Dll 

, MM) 

NNN 

= GK1 

Dll 

, NN  ) 

nkl 

T 1 1 3 

,20 

) 1 P 1 , LLL , MMM, IP2, MMM, NNN 
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20 

FURMAI  (ohPLUltL,  T9,<?(ilb,BX)  J 

5b 

IF  ( 1PSPC (LL ) ,NE .b)  bu  TU  My 

Art  1 1 L ( b , 50 ) IF  I X (GRiDll ,LL) ) 

30 

FUKMAT  (WH  ***  GRID, lb, 

• 

30n  USED  AS  bUTH  LUUF  NUDE  AND  CORNER  NUDE) 
ERR=.TRUE. 

40 

1PSPC (LL ) =45b 

SO 

CUNT 1NUE 

UU  70  K=4,L*,2 
LL  = SHE.LLCK,  1) 

IF  (LL.EU.O)  GU  TU  /O 
IF  (IPSPC(LL)  ,NE.45b)  GU  TU  60 
wRlTE(b,50)  IF  I X ( Gk 1 U U , LL) ) 

Ekk=,  lkUE. 

60  lPSPC(LL)=b 

70  CONTINUE. 

ttO  CUNT1NUE 

C 

C BEAM  tLEMENTS 

C 

<>0  IF  (NbEAM.EU.O)  GU  TO  ISO 

N B M T t = 0 

UO  140  l=l,NbEAM 

IF  (BEAM( 15, 1 ) .EU. 1 ) NBM1  Y=NBMTY+  1 
C 

C IDENTIFY  LUJF  NUDES 

C 

Du  no  K — 3 , b , 2 
LL=bEAM(K, 1 ) 

IF  (LL.EQ.O)  GO  1U  110 
IF  (lPSPC(LL).NE.b)  GO  TO  100 
*RlTE(b,30)  IF1X(GR1U(1,LL)) 

ERR=  , T RUE . 

100  1 PSPC  ( LL ) -0 

110  CONTINUE 

K = 4 

LL=btAM(K, 1 ) 

IF  ILL. tU. 0)  GU  TU  130 

IF  ( 1PSPC (LL) ,NE ,4Sb. AND. 1PSPC (LL) .NE , 0 ) GO  TO  120 
*RITE(b,30)  IF 1X(GR1D( 1 ,LL) ) 

ERR= , T RUE . 

120  1PSPC ( LL ) =b 

130  CONTINUE 

140  CONTINUE 

150  aR  1 T E ( 7 ) T 1TLE,NUMNP,NSHELL,NPSHEL,NSHL1 Y , N6E AM, NPBEAM, 
NbMT Y , NMAT 

IF  (NSHELL.G1 ,0)  AR IT  E ( 7 ) ( ( SHELL ( J , I ) , J = 1 , 1 2 ) , 1 = 1 , NSHE LL ) 
IF  (NbEAM.GT.OJ  AR1TE(7)  ( ( bt AM ( J , 1 ) , J = 1 , 1 5 ) , 1 = 1 , NbE AM) 

DU  1V0  1=1,NUMNP 

GRID(11,1)=1SEU(1) 
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IF  UH5PCUJ.lMt.-l)  bU  iu  1/0 
PKliMl  160,  IF  lXlbMDll  r 1)) 
loO  FuKMttl  119H  **  rtAKNlNb  --  bKlb,lb, 

. ilH  hAS  NU  L (JUH  tLtMtNTS  CUNNtCltU  ) 

1PSPL11)=0 

170  *KlTtl3,180)  1F1XIGR1DU>1)),  1F1XIGR1D12,1)),GRID(3,1), 

. GKIDU,l),I,l,GKlDl5,l),IFlX(GRlD(9,I)),IPSPC(l) 

180  FORMAT  (bHGRID*, T 9 , 2 1 1 6 , 2E 1 6 , 9 , 2H* b , 13/2H*G, 13, T9,tl6.9,2116) 

190  CON  T I NUt 

IF  IMAlbtN)  wR 1 T E l 3 , 19b) 

19b  FURMAT  (17HPAKAM  ST  IF  MAI  1) 

IF  IOYN)  *KITfc(3,200) 

200  FURMAT  (17 HPAk AM  MASSMAT  1) 

IF  (APPLO)  «RITt(3,210) 

210  FORMAT  (17HPARAM  LOADVEC  1) 

IF  (imSPUINT  .GT  .0)  *RITE13,220)  NSP01WT 
220  FORMAT  (16HPARAM  NSP01NT  ,18) 

«R1TE(3,230) 

230  FORMAT  l 7HENDDA  T A) 

RETURN 

END 
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SllbRUUl  1 fvt  SUi<l  (GK]U,lUKU,lStu) 

DI kEnSIun  GkIDI 13, 1 ) , lGhbll ) , 1 Stull ) 

C 

L SUk|  GRib  P □ I >J  1 S ACCORDING  10  tXltRNAL  G.P.  NO. 

C 

COMMON/ N / NLORU , NUMNP , IMShtLL  , NPSHEL , NPSMELX , NSHLT  Y , NBE  AM,  NPbE  AM, 
, NBM1 Y , NMAT , NSPU1NT , MAXGRD , NUOF 

LOGICAL  SWAP 
DO  5 1=1, NUMNP 
1GRD(1)=GR1D(1,I) 
b 1SEG11)=1 

N 1 =NUmnP- 1 

lu  Swaps. FALSE. 

DO  20  1=1, Ml 

IF  UGRD(I),LT.1GRD(1  + 1))  GO  TO  20 
L = ISfcUU) 
lStU(l)=lSLO(l+l ) 

istu(i  + n=u 

L= 1 GRU (11 
1 GKD ( 1 ) = 1GKD  1 1 ♦ 1 ) 
lGRDtl+1 )=L 
Swaps, IRUt. 

20  CONTlNUt 

IF  (SwAP)  GO  TO  10 
DO  30  1 s 1 # NUMNP 
30  1GRUI  1SEUI 1 ) ) = 1 

CALL  MUVER(IGRD,1,1SEG,1, NUMNP) 

RETURN 

END 
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o o r>  o o o o 


l 

c 

c 


SUBkUUl  lwt  XSHttL ( GkD, Snfc LL , PSbfc LL, PbhELLx , XKAT  , EL S l I F , E LMASS , 

. LEGAL), 

. tLS I RE S, SlNDt a , SnAPE > SEN ) 

DRIVES  SMELL  tLtMtUl  MA1K1X  GENERATOR 

DIMENSlUN  GRD(13, 1 ) , SHE LL C 1 2 , 1) , PSMfcll ( 3 , 1 ) , PSHE LL X l 20 , 1 ) , 

. XMATlb,l) 

DIMENSION  EL  ST  IF132,32),ELMASS(32,32) 

DIMENSION  ElOAD(32)  »ELSTktSlb»32) 

DIMENSION  S1NOEXU  ) >StQll ) 

INTEGER  SEU 

D I PENS  1 UN  LNODS(b) ,PkESSl.8) 

INTEGER  SlNDEX 

CUMMUN/CUN 1 RL/ ECHO, ERR, MA 1 GE N, D Y N,APPLD, PLOT, DBUG,  BAD,  NCORE, 

. mmass,  nasty 

LOGICAL  ECHO,ERk,MATGEN,DYN, APPLD, PLOT, DBUG, BAD 

COMMON/N/NCURD,NUMNP, NSHELL , NPSHEL, NPSHELX , NSHLT Y , NBE AM, NPbE AM , 
. NBMTY, NMA1 , NSPOlNT ,MAXGRD,NDOF 

DIMENSION  ELXYZ19,A) 

DIMENSION  AA(b) , BBlb) , DD(b) 

IF  CNSmELL.EQ.O)  RETURN 


LOOP  UN  ELEMENTS 


DU  200  I s 1 , NSHELL 

GET  MATK1X  INDEX  AND  SEE  IF  MATRICES  FUR  THIS  CONGRUENCE 
GROUP  HAVE  BEEN  GENERATED  YET 

LStU=SHELL(ll,l) 

IF  ISlNOEXUSEUtl)  ,NE,0)  GO  TO  200 
LPRUP=  INDEX  (PSnELL, NPSHEL, 3, SHELL (2,  I ) ) 

IF  ILPRUP.LE.O)  GO  TO  20 
LTYPE=1 

LMAT=1NDEX(XMAT,NMAT,6,PSHELL(2,LPR0P) ) 
TH1K=PSHELL(3,LPH0P) 

CALL  MOVER ( XMA1 ( 1, LMAT ) , 1 , AA, 1 ,b) 

DENS=XMAT(b,LMAT) 

IF  (LMAT.GT.O)  GO  TO  90 

WRITE (6, 10)  IFlXtPSHELLClf  LPROP)  ) , IF  I X (PSHELL  ( 3,  LPROP ) ) 
10  FORMAT  C19H  ***  SHELL  PROPERTY, lb, 

t 2BH  REFERENCES  UNKNOWN  MATERIAL, 16) 

ERRs, TRUE, 

GO  TO  200 

20  LPROPslNDEX(PSHELLX,NPSHELX,20,SHELL(2,  1) ) 

IF  (LPRUP,GT,0)  GU  TO  30 

wRITE(b,2b)  IF  I X l SHELL (1 , I ) ) , IF  I X l SHELL ( 2 , I ) ) 

2b  FORMAT  (16H  ***  SHELL  ELEMENT, 16, 

, 26H  REFERENCES  UNKNOWN  PROPERTY, 16) 
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ooo  o d o ooocrooo  r~oo 


EkR- » I KUt . 

GU  lu  20u 
30  L1YPE=2 

CAUL  MUVLH (PSHLLLX (2,LPK0P) , 1 , AA, 1 , 6) 

CALL  MUVtR(PSHELLX(b,LPKUP) , l,bc>, l,o) 

CALL  MOvEK  (PSHtLLX  ( 1<J,LPRQP)  , 1,DD, 1 ,6) 
DENS=PShELLX(20,LPK0P) 

TH1K=1 ,0 

GAIHEK  UP  EIGHT  CS1X)  C0RNER-PU1NT  PROPERTIES 

MO  CALL  MUvER(0,0,ELXYZ(9, 1),9,A) 

LNQUSl / J=0 
LNODS(b)=0 
DO  60  J=1 , b 

NOD=ShElL ( J+2, 1 ) 

IF  (NOD.EU.O)  GO  TO  65 
SHELL(J+2, 1)=SE0(N0D) 

LNOuSl J)=NUU 
PRESS( J)=GRD( 12,NQD) 

DO  SO  K=  1 , 3 

bO  ELXVZ( J,K)=GRD(K+2,NOD) 

60  ELXYZ(J,4)=GKD(13,N0D) 

thickness  associate  with  shell  overrides  g.p,  value 

IF  (THIK.NE.0I  CALL  MOV EK ( T H 1 K , 0 , EL  X Y Z ( 1 , U ) , 1 , 8 ) 

HERE  WE  GO 

CALL  USHtLL (E LX YZ,LNODS, Li YPE, DENS, AA,bB,DD,  SHELL (12,1), 
. PRESS, ELS  I IF , ELMASS, ELUAD, ELS TPES, SHAPE, LVAbZ ) 

IF  (, NUT, BAD)  GO  TO  b7 
wR1TE(6,66)  IF  IX (SHELL ( 1 , 1 ) ) 

06  FORMAT  (18H  ***  SHELL  ELEMENT , lb, 1 7H  HAS  bAD  GEOMETRY) 
ERR=.TRUE. 

GO  TO  200 

DUMP  UUT  MATRICES  TU  DISK 

07  CALL  wRllMS(9b,ELSl IF, 32*32, LSEU) 

IF  (UYN)  CALL  wR IT  MS ( 99 , ELMASS , 32*32 , LSEU ) 

IF  (APPLD)  CALL  «R  1 1 MS  ( 97  , ELO'AD , 32 , LSEQ ) 

IF  ( .N01 , DbUG)  GO  TO  200 

DEBUG  PRINTOUT 

wR1TE(6,70)  I 

70  FURMAT  (*OST IFF  NESS  MATRIX  FOR  SHELL  ELEMENT*, 14) 

DO  bO  J=1,LVABZ 
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ttU  rtkllLlo,9u)  J,  CtLSI  If-  (J#t\)  ,ts=l  ,LVAbZ) 
wu  FORMAI  I*  KUrt*jli/(dtlb,t>)) 

*R1 1 1 w>»  1 oo)  1 

10U  FURMA]  l*ySTRESS  MATRIX  F UR  SHtLL  ELtMtNT  * , I 4 ) 

UU  110  J=1 ,b 

110  wklTtlbfVO)  J, (tLSlRtSlJ,K),K=l,LVAbZ) 

IF  i.not.uvn)  go  iu  lay 
wkntct),  120)  l 

120  FORMAT  C * UMASS  MATRIX  F UR  SHtLL  ELEMtNT  * » 1 A ) 

DO  130  J= 1 » L VAbZ 

130  rtklltlo/90)  J, (tLMASS(J,K),K=l,LVAdZ) 
lay  IF  (.nui.applD)  go  TO  200 

rtklTElo, 150)  l, ItLOADlJ) , J=1 ,LVAbZ) 

150  FUkMAT  l*0L0Ai)  VtLTUR  FUR  SHtLL  t LtMt  NT  * , 1 3/ ( St  1 5 . b ) ) 
200  CUNTINUt 
RETURN 
END 
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Subkuu I 1 'Mt  GShtLLixrZI/  LNUUS/ L 1 YPE / DEnS / A A , bb , UD / ANGLE / PRESS  / 

. hLSl  1(-  ,ELMASS,tLUAU,tLSlKES,*SHtL,L vABZ) 

L>  1 ^tuS  i UN  xrZHo,tJ)  / LNUDSlb)  /AA(o),Ob(b)/LD(b),pkESSlb), 

1 ELS T IF  ( 32/  32)  , ELMASS(32/  32)  , ELUAD(:>2) 

OlMENSIUN  £ LS  1 RES l b / 32 ) 

CUMMUN/GAUSS/NGAUS/  GF  AC  T 

CUMMUN/n/NCURDz  NUMNP,NSFIELL/NPSHEL/NPSFIELX,NSHLT  Y/NBEAM,NPbEAM, 
. NbM  T Y t NM  A 1 , NSPOIM  ,MAXGRD/NDOF 

CUMMUN/CUNTRL/ECHG/ERR/MATGEN,DYN/ APPLD/PLO!  / DBU& / bAD , NCORE / 

, w T MASS / NAS  T Y 

LUG  1 CAL  ECHU/ERR/MA  TGEN, DYN, APPLD/PLUl  /DBUG/bAD 
DIMENSION  AbD lb/ o) 

0 1 MEnS  1 Un  CGAUS313) 

DATA  Pl/i, 141b927/ 

DATA  XGAUS3,XGAUS2/.7/b49  bbb92  414b/  ,b773b  02b91  6 9b2/ 

DATA  CGAUS3/ . bbbbbbbbbbbSS6 , . bbbbbbbbbbbbb9 , , bbbbbbSbbbbbbb/ 
LNODZ=b 

IF  CLNUDSC7) .tU.O)  LNUDZ  =b 

LVAbZ=a*LNODZ 

DATA  THlK/0./ 

CALL  MOVERIO/O/ELSTIF/ 1,32*32) 

CALL  MOVER  (0,0, ELM ASS, 1 , 32*  32) 

CALL  MUVER10,0,ELUAD, 1,32) 

C 

C FILL  IN  STRESS-SI  RAIN  MATKlX 
C 

CALL  MUVERIO, 0, AbD, 1 , 36) 

IF  (LTYPt.EQ.Z)  GU  TU  HO 
AbD(l/ 1)=AA(2) 

AbOllr 2)sAA(3) 

AbD l 2/ 1)=AA(3) 

AbD(2,2)=AA^4) 

ABD(3,3)=AA(S) 

GO  TU  130 

110  AbDl 1/ 1 )=AA( 1 ) 

AbD ( 1 / 2 ) =A A (2) 

AbD ( 2 / 1 )=AA(2) 

ABD(1,3)=AA(3) 

ABD(3/ 1)=AA(3) 

AbD(2,2)=AA(4) 

AbD  ( 2 , 3 ) = A A ( 5 ) 

ABDC3/2)=AA(b) 

AbD(3,3)=AA(6) 

AbD(l,4)=Bb(l) 

AbD(l/b)=bB(2) 

ABD(2,4)=bb(2) 

AbO(l,o)=Bb(3) 

AbDl3,4)=BBl3) 

AbD(2,b)=BB(4) 

AbD(2/b)=6b(b) 
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r no  o o 


AbD(3f b)sBd(b) 

AdU ( i, o ) =db (h) 

DU  12u  1 = 1,3 
UU  1 <>U  J = l,3 

120  ABU(l+if J)=ABD(J, 1+3) 

ABD(4,  4)=DD(1) 

abu ( 4 , s ) =du (2) 

Abui5»  4)=du(2) 

AbU(4,c)=DD(3) 

AbUlbf 4)=UD(3) 

ABU (bf  b) =UD ( 4 ) 

ABUCb, b)=UU(b) 

ABU(6,b)=UD(5) 

ABU  (Of  o)  =DD  (6) 

130  IF  ( ANULt . EQ , 0 ) GU  1U  lbO 
C=CUS(ANGLE*lttO/PI ) 

S=S1N(ANGLE*160/P1) 

C2=t*C 

S2=S*S 

C4=C2*L2 

S4=S2*S2 

DU  140  1 = 1 f 4 / 3 

DO  140  J- 1 # 4 / 3 

A 1 1 = AdU (1  r J ) 

A 1 2 = AtJU  ( 1 f J + 1 ) 

A22=ABDll+lf J+l) 

ABU(lf J)=A1 1*C4+A12*S2*C2+A22*S4 
ABUdf  J + 1)  = (A1  1 + A22-2*A12)*S2*C2 
ABU(J+lfl)=ABU(l+lfJ) 

140  AbOd  + 1 f J + l )=A1 1*S4  + A12*S2*C2  + A22*C4 

1 bO  IF  (LnUDZ.EQ.O)  GO  10  40 
IF  (NGAUS.EQ.3)  GO  TO  20 

OUADKILAlERALf  4-POINT  GAUSS  INTEGRATION 

IF  (GFACT.EG.O)  WR1TE17)  4,LPR0P 
IF  (GFACT.NE.O)  «R1TE(7)  bfLPRUP 
DO  10  ixsl  f 2 
DO  10  JY=1 , 2 

CALL  2HELL(XGAUS2*(3-2*IX),XGAUS2*(3-2*JY), 

. XYZT  f ABDfLl YPEf PRESSfUENSf NSHELfELSTRESfELSTIFfELMASSfELOADf 

. LNODSfLNUDZfLVABZ, 1.-GFACT/4.) 

IF  (BAD)  RETURN 
10  CONTINUE 

OPTIONAL  EXTRA  POINT  AT  CENTER  (QUAD) 

IF  (GFACT.NE.O.)  CALL  ZHELL(0.fO., 

. XYZTfABDfLTYPtfPRESSfDENSfWSHtLfELSTRESfELSTIFfELMASSftLOADf 
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O D O Ci  O O 


LNUL>3,  LNuUZ#LVAbZ,bPACl  ) 

IP  tb^uJ  KETUKN 
GU  IU  bb 

UUADRlLA I EKAL,  9-HU1N1  GAUSS  1 N I EGR  A T 1 UN 

20  wRI TE ( 7 J 9,LPKUP 
DU  30  I X=1 , 3 
DU  30  JY=1,3 

CAUL  ZHELLIXGAUS3* 12-IX) , XGAUS3*  (2- J Y ) , 

. XYZ1 , ABU, Ll YPE, PRESS, DENS, nSHEL, ELS  I RES, ELST  IP  , tLMASS,  ELOAD, 

. LNOUS,LNODZ,LVABZ,LbAUS3(IX)*CbAUS3lJY) ) 

IF  (BAD)  KUUKN 
30  CONTINUE 
GO  TO  bb 

3-PUINT  GAUSS  INTEGRATION  UN  1 R 1 ANGLE 

UO  nR I T E ( 7 ) 3 , LPROP 
DU  bO  J T = 1 , 3 

CALL  ZHELLU  (JT-l))/4.,M0DlJT,2)/2., 

, XYZ1 , ABD,LT  Y PE , PRt SS , DENS , WSHE L , ELS T RE S , ELS T 1 P , ELM ASS , E LOAD , 

. LNODS, LNUDZ,LVABZ, 1 .) 

IP  IbAD)  RETURN 
bO  LUNI1NUE 
bb  DU  bO  J=1,LVABZ 
DO  bO  1=1, J 

ELST1F (J,1)=ELST1F (I,J) 
bO  LLMASS(J,1)=ElMASSCI,J) 

RETURN 

END 
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SUbhliUI  InE  ZhElL(a1,LI A,XYZ  I , ABU , LI  Y PE , PRE  SS , DENS  , ft  SHEL  , 

. ELST RES, ELST  IF  ,ELMASS,ELOAD,LNUUS,lNODZ,LVAbZ,FACT  ) 

DIMEnSIU'm  X Y Z T (9,  A)  ,LNUDSlb)  , AbD  1 b , b ) , EL  ST  RE  S ( b , 32  ) , 

. EL  SI  IF (32,32),ELMASS(32,32),EL0AD132) 

CUFhON/N/NCURD,  NUMNP,  NSFiELL,  NPSHEL,  NPSHELX  , NSHL T Y , NbE  AM , NPBE AM , 

. N6MT  Y , NMAT , NSPU1NT , MAXGRD,  NDOF 

CUMMON/LUN 1RL/ECHU, ERR, MAT  GEN, DYN,APPLD,  PLOT ,DBUG, BAD, NCORE, 

. aTMASS, NASTY 

LOGICAL  ECHO, ERR, MA IGEN,DYN,APPLD,  PLOT  # DBUG#  BAD 

DIMENSION  D(b,b)  # F RAM ( 3#  3 ) # POINT  (3)  »X11  A 12)  ,*SHEL  ( 1 3 # 45 ) # B ( 6 # AS ) 

XlTA(l)=Xl 

Xl T A(2)=ETA 

b CALL  H ALOOF ( 1 , ARtA, XYZT  #F RAM# POINT  # SIDE# T H I K , WSHEL # X I T A , LNODS # 

* LNOOZ#LVABZ#LNODZ) 

BAD=, FALSE, 

IF  (AKEA.EU.-b9.)  GO  TO  bO 
C 

C B MATRIX 

C 

DO  B N=l#LVAdZ 
B(l#N)=rtSHEL(A#N) 

B(2,N)=aShEL(7,N) 

B(3,N)=*SHEL(b,N)tASHEL(b,N) 

6 ( A # N ) = aSHEL  ( 1 0 # N ) 
b(S#N)=«SHEL(l2#N) 
b blb#N)=2,0*wSHEL( 11 #N) 

C 

C D MATRIX 
C 

CALL  MOVERUBD#  1#D,  1,3b) 

IF  (LTYPE.EQ.2)  GO  TO  lb 
DO  10  1=1,3 
DO  10  J = 1 # 3 
D(  1# J)=D(I# JJaTHIK 
10  D(I  + 3#J  + 3)=D(1#J)*1HIMTfiIK/12, 

C 

C STRESS  AND  STIFFNESS  MATRICES 
C 

lb  DU  30  J=1#LVABZ 
DO  20  K = 1 , b 

CALL  SCPRUD ( b# 1 # l#D(l#K)#b(l,J)#XX) 

20  ELSTRESU, J)=XX*AREA 
DU  30  1=1#J 

CALL  SCPRODCb# 1# 1#ELS1KES(1,J)#B(1# 1)#BDB) 

30  ELST  1FU#  J)=ELSt  IF  ( 1 # J ) +F  ACT  *BDB 

aR1TE(7)  ELST  RES  #*vSHEL#  POINT  #F  RAM,  T HI  K 
C 

C LOAD  VECTOR 
C 

IF  (APPLD) 
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L A l L KtULLblLVAbZ,  i , 1 , -AKtA*PKtbS*FACl  » t‘<  S h l L l 3 , 1 ) , L L 0 A u ) 


L 

L MASS  Ni A 1 K 1 X 

L 

IF  I.imUI  .DYN)  bj  1U  bO 
AA=DtMS*AkEA*THlK*ftTMASS 
l)U  AO  J = 1 , L V ABZ 
DU  AO  1 = 1, J 

CALL  SCPKUD13, 1,1, rtSHEL 11,1), nSHEL ( 1 , J ) , BB ) 
AO  LLMASSU,  J)=ELMASSC1,  J)+AA*BB 
bO  RE  1 URN 
60  B AD=  , I RUt • 
kt 1 UkM 
EMU 
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SUbwUUl  I'xt  XbEAMU>RlD,BEAM,PbEAM,XMAT, 

. ELS1 IF ,ELMASS,ELUAD,ELSlHES,SlNOEX,ShAPt,lSE(>l) 

OlMCNblUiv  GRID  l 13,  1 ) ,bfcAMUl  , l),PbtAM(R,  1 ) , XKAT (6, 1 ) , 

. LLSI IF l 1 /, 17) ,ELMASS( 1 7,  1 7 ) , ELO AD ( 1 7 ) , S I NDE X ( 1 ) , SHAPE;  Cl ) , 1SEUI 1 ) 

. 11) 

C 

C DRIVER  FUR  BEAM  ELEMENT  MATRIX  GENERATOR 

C 

COMMON  All) 

CUM  MON/CUN TRL/ ECHO, ERR,MATGEN,DYN,APPLD, PLOT ,DBUG, BAD, NCORE, 

, w T MASS , NASI Y 

LOGICAL  ECHO, ERR, MAlGtN,UYN, APPlD, PLOT ,DBUG, BAD 
COPMON/N/NCORl),NUMNP,NSHELL,NPShEL,NPSHELX,NSHLT  y,nbeam,npbeam, 

, NBMT Y,nMAT , NSPUlN I , MAXGRU, NDUF 

DIMENSION  ELXYZCi,i),AREAli),Xll ( 3 ) , X 1 2 ( 3 ) , X J ( 3 ) , ZNORM l 5 ) , ZB1N(3) , 

, PRESS(3),LNODbC3) 

INTEGER  SINDEX 
IF  (NOEAM.EQ.O)  RETORN 
LETRAnS  = imCORE 
CALL  MORCOR (17*17) 

LUsnCORE 

CALL  MORLOR 117*17) 

DO  130  1=1, NBE AM 
LSE0=dEah( lb, 1 ) 

IE  (S1NDLX (LSEU  + NSHLTY-H  ) ,NE.O)  GO  TO  13u 
LMAT  =INDEX  C XMAT , NMAT , 1 , bEAM (2,1)) 

IF  ILMAl  .GT .0)  GO  TO  20 
wR  1 T £ ( t> , 10)  1 F I X ( BE  AM ( 1 , 1 ) ) 

10  FORMAT  ( 1 7H  ***  BEAM  ELEMENT, I 6, 

, 2Bn  REFERENCES  UNKNOWN  MATERIAL,  Ifc) 

ERR  = , TRUE. 

GO  TO  130 
20  bAU=. FALSE. 

DO  50  J = 1 , 3 
NOD  = BEAMU+2,l) 

BEAM(J+2,I)=ISED( NOD) 

LNODBl J)=NOD 

IPb=lNDEx(PBEAM,NPbEAM,9,BEAM(5+J,  1 ) ) 

BAD=. FALSE. 

DO  30  K=1 , 3 

30  ELXYZ(J,K)=GR1D(2+K,LN0DB(J)) 

AREA(J)=PBEAMC2, 1PB) 
xl  1 l J)=PbEAM(3, 1PB) 

X12( J)=PbEAM(a, 1PB) 

XJ  ( J)=PbEAM(b, IPB) 

ZNORM(J)=BEAMt7+2*J, I) 

ZblNCJ)=bEAM(8t2*J, I ) 

IF  (lPb.GT.O)  GO  TU  50 

WR1 1 E (o, 90)  IFlXlbEAM(l,l)),IFlX(BEAM(5*J,l)) 

90  FORMAT  C 1 7 H ***  BEAM  ELEMENT , lb, 26H  REFERENCES  UNKNOWN  PROPERTY, 16) 
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o o o 


. ) 

bAl>=  , T KUt . 
bo  CUN 1 i NUL 

t_KK=ERK  . UK  . BAD 
1 F ( b AD ) GU  TU  lio 

CAUL  Zb£AMlE.LXYZ,XMAHl  , LMAT  ) , AREA, XI  1 , X 1 2 , X J , RKE  SS , ZNOKM , ZB  I N * 
. BEAM(19,1),LNUDB, 

, t Lb  I IF ,ELMASS,ELUAD,ELS1RES, A(LETRANS), A(LU) ,ShAPE) 

CALL  AR1 TMS(9b,ELSl  IF  , 1 7* 1 7 , LSEQ+NSHLT Y ) 

IF  IDYN)  CALL  «H IT  MS ( 99 , t LK ASS , 1 7 * 1 7 , LSE U+NSHL T Y ) 

IF  lApPLD)  CALL  wRI  IMS(97,ELOAD,  17,LSEGi*NSHLTy) 

IF  l .NUT .HAD)  GU  TU  bb 
rtRITE(b,S9)  IF  IX lbEAM( 1 , 1 ) ) 

bo  FORMAT  C17H  ***  BEAM  E LEMENl , 1 b , 1 7h  HAS  BAO  GLOME  TRY) 

EKRs.TRUE, 

GU  TU  130 

bb  IF  C.NUI.DBUG)  GOTO  130 
WRITE ( 0 , 60 ) 1 

b 0 FUKMAT  (*OSlIFFNtSS  MATRIX  FOR  BEAM  ELEMENT*, 19) 

DO  70  J=l,17 

70  rtRllE(o,B0)  J, (ELST  IF  (J,H) ,K=1 , 17) 

80  FUKMAT  (*  ROw* , I 3/ ( BE  1 b , 6 ) ) 

IF  (.NU1.DYN)  GU  TU  110 
wKlTE(o,90)  1 

90  FUKMAT  (*0MASS  MATRIX  FUR  BEAM  ELEMENT*, 19) 
l)U  100  0 = 1,  17 

100  WKlTElb,BO)  J , ( ELMA SST J , K ) , K= 1 , 1 7 ) 

110  IF  l.NUT.APPLD)  GU  10  130 
WRlTE(b,120)  I,ELUAD 

120  FORMAT  ( * OLUAD  VECTOR  FOR  BEAM  ELEME N T * , 1 3/ ( BE  1 S , 6 ) ) 

130  CONTINUE 

GIVE  BACK  BORRUwED  CORE 

NCURE=LETRANS 
RETURN 
END 
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10 


SlJohUUI  lNE  ZbE  AM  IX  YZ  I # XMAT  , ZAht  A,  Zxl  1 , 2 X 1 2 , Z X J , Z PRE  SS  # Z NORM , Z b 1 N # 

. UK  1 tig  I , LNUDo, 

. t L S I IF  #ELMASS»ELUAL>#tLS1RE5»ETRANS#U#ftbtAM) 

DIMEnSIUN  XYZ  1 l 3#  3)  # XMA  | lb)  , 

. ZAREA  (3)#ZX1 1 13)  #Zxl2(i) #ZXJ13) # ZPRE SS ( 3 ) #ZN0RM ( 3 ) , ZB1 N ( 3 ) # 

. )#UN1ENT13)#LNUDB13), 

. ELSTIF117#  17),ELMASS117#17),EL0ADU7)#ELSTRES16,32),ETRANS(17,17)# 

< # 1 7 ) # 

. U117# 17)#ftbEAMll3#0b) 

GITS  btAM  STIFFNESS#  MASS#  AND/UR  LUAl)  MATRICES 

OIMENSIUN  XGAUS(S) ,CGAUSlb) , Bio, 32) # T 1 3#  3 # 3) » OFFSET ( 3 » 3) 

REAL  NU 

DIMENSION  F RAM l 3, 3)  #Dl6)  # POINT  13) 

CUMMUN/'g/NCQRD#  NUMNP,  NSHELL#  NPSHEL#  NPSHELX  , NSHLT  Y # NBE AM#  NPbEAM, 

. NbMTY  ,NMAT  ,NSPU1NT  , MAXGRL)#  NDOF 

LUMMON/CUN T RL /ECHO# ERR # MA 1 GEN,DYN#APPlD# PLOT, DBUG, BAD# NCURE# 

. ft  1 MASS  # NASTY 

LOGICAL  ECHO#  ERR#  MAT  GEN#  DYn#  APPLD#  PLOT  # DBUG#  BAD 

DATA  XGAUS/-.S7  7 3b02b9 , 0 . b7 7 3S02b9 , - , 7 70b966692 , , 7 7«596bb92 # 0 . / 

DATA  CGAuS/2*l,#2* . SBbbSSSBb, . b666B6B69/ 

DATA  LVAdZ/17/ 

NU=XMAf  (31/XMAT  (2) 

E=  ( 1 -NU*NU)  * X M A fit?) 

G=XMAl (b) 

DENS=AMA1 16) 

CALL  MOVERIO, 0,ELST  IF , 1 , 17*17) 

CALL  MuVtR 10, 0, ELMASS, 1 , 1 7*1 7) 

CALL  MOvER10,0,ELOAD, 1# 17) 

LOOP  ON  GAOSS  POINTS#  END  POINTS#  AND  MIDDLE  POINT 

DO  70  1GAUS=1#B 
X1=*GAUS11GAUS) 

CALL  GCbSFl l X 1 , POINT ) 

IN  I ERPOLAT  E CROSS-SECUJN  PROPERTIES 

ARE A=Q , 

XI 1=0, 

Xlt?  = 0, 

A J = 0 , 

PRESS=0. 

DU  10  J = 1 , 3 

AREA=AREA+ZAREA( J)*POINT IJ) 

X11=X11+ZXI1 (J)*PUINT IJ) 

X12=XI2+ZXJ21 J)*P0INT (J) 

PRESS=PRESSFZPRESS( J)*PU1NT (J) 

XJ=XJ+ZXJIJ)*PU1NTIJ) 


331 


ooo  ooc!  nr^o  ooo  ooo  nr'o 


iUUlCAIL  CHJSS-SEC1  lOl'i  Ok  1 E N I A T i UN 

CALL  MUVER(0,0,FRAM,  1,9) 

CALL  MOVERCORlENT, 1 ,FkAM, 1,3) 

GE1  SHAPE  FUNCTIONS 

call  LOFBEM(1,LVABZ,S1DE,XYZT,FRAM,POINT,InBEAM,XI,3,3,3,LNODB) 
BAD=,F  ALSE. 

IF  (S1DE.EU.-69, ) GO  10  120 

IF  (Xl.tU.O.)  CALL  MOVERIFRAM, 1,1(1, 1,2), 1,9) 

F ACMOD  = E*SIOE*CGAuS ( 1GAUS) 

FACSHE=G*FAC MUD/E 

FORM  STRAIN-DISPLACEMENT  TERMS 

CALL  MOVER  (WBE AMU,  l),13,bU,  1),6,LVABZ) 

CALL  MOVLRCwBEAMU,  l)  , 13,B(2,  1),6,LVABZ) 

CALL  MOVER  UBE  AM  19,  1 ) , 1 3 , B l 3 , 1 ) , 6 , L V ABZ  ) 

CALL  MOVER (wBEAM(ll, 1 ) , 1 3 , B ( « , 1 ) , to , L V ABZ ) 

CALL  MOVER (ABEAM (12, 1 ) , 1 3,  B (5,  1 ) , to,  L V ABZ  ) 

CALL  MOVERUBEAMCIO,  1 ) , 1 3 , B ( 6 , 1 ) , b , L V ABZ  ) 

STIFFNESS  TEHMS 

D( 1 )=F ACMOU*  ARE A 
D(2)=FACM0D*Xl 1 
0(3)=FACMOD*X12 
0U)=FACSHE*AREA/1 ,2 
D(S)=FACSHE*AREA/1 ,2 
D ( to ) =F  ACSHE* X J 

LOAD  TERMS 

IF  l 1GAUS.LT. 3, AND, APPLD, AND, PRESS. NE,0) 

.CALL  REDCLPUVAbZ,  1 ,3,  1 , -SI DE ‘PkESS , ELOAD , *BE AM ( 3 , 1 ) ) 

STIFFNESS  MATRIX 

IF  ( 1GAUS.GT ,2)  GU  TO  30 
DO  20  J=1,LVABZ 
DO  20  1=1, J 

20  EL  SI  IF (I, J)=ELS1 IF (1, J)+B(l,  J)*D(1)‘B(1, 1)  + 

) BU,J)*DU)*B(«,1)+B(5,J)*D(5)*B(5,1) 

GO  TO  50 

30  DO  90  J = 1 , LVABZ 
DO  90  1=1, J 

90  ELST1F(1,J)=ELST1F(I,J)+B(2,J)*D(2)*B(2,1)+ 

B(3,J)‘D(3)*B(3,l)+B(to,J)*D(b)*b(t,I) 
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DU  IU  /0 


MASS  M A I « I x 

SO  IK  l • NU 1 .DYN)  GO  TU  70 
AA=DENS* SIDE* AREA* A T MASS 
OU  60  J=1,LVABZ 
Du  bO  1 = 1,  J 

CALL  SCPRODC3, 1,1, ABEAM (1,1), aBEAM l 1,J),B8) 
bO  ELMASS(1,J)=ELMASS(1,J)+AA*BB 
70  CONTINUE 

kill  in  symmetric  terms 

DU  60  J=1,LVABZ 
DU  60  l:hJ 

ELSUF(J,I)=ELST1F11, J) 

60  ELKASS(J,1)=ELMASS(I,J) 

HANDLE  OFFSET  TRANSFUKMAflUN 

DU  9u  1=1,3 

IF  (ZNUWM( 1 ) .NE.0. ) GO  TU  100 
IF  IZolNdJ.NE.O.)  GU  TU  1O0 
90  CONTINUE 
RETURN 

100  CALL  LUFBEM(l,LVAbZ,SlDE,XYZl , T ( 1, 1 , 1 ) , POl NT , ABE AM, - 1 . , 3, 3 , 3, LNODB ) 

• ) 

CALL  LOFbEM(  1 , LVABZ , SIDE, XYZT , T ( 1*  1 > 4 ) , PU1 N T , ABE  AM,  1 , , 3, 3 , 3,  LNODB) 
DU  110  1=1,3 
DU  110  J = 1 , 3 

110  OFFSET (1,J)=T (J, 2, l)*ZNORM(l)tT ( J , 3 , 1 ) *ZBI N ( 1) 

CALL  TRAnSCETRANS, OFFSET ) 

CALL  TRIPLE (ETRANS,ELST1F,ETRANS, 17, 17,0) 

RETURN 

120  BAD=.TRuE. 

RETURN 

END 


333 


SUbKuUI lNt  TRANSltrA) 

L»  1 ML  IMS  1 UN  E(17,l7),Ai3,3) 
LAlL  MUVtK 10, U, E, 1,17*1/) 
LAIL  MU  V t K (.  1 , , U , L , 1 0 , 1 / ) 
E(  1 , liJs.AH  ,3) 
t(  1 , 14)=A( 1 ,d) 
tl2,U)=  All  , i) 
fcl2,l«)s-A(l,l) 

E13, 12)=-A(1 ,2) 
t(3,13)=A(l,l) 

E(«» 7)=-Al2,3)/2. 
t(a,8j=-A(2,3)/2. 
b(b#7)=Al2, 1 )/2, 
E(t>,tt)=A(2, 1 )/2, 
t(4, lb)=-AC3,3) 

E(9, 17)=A(3,2) 

EUO,  lb)=A(3,3) 
E(10,17)=-AC3,1) 

E(  1 1 , 1S)=-A (3,2) 

E(ll,lb)=A(3,l) 

kETUKN 

END 
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SUHkuul  InE  AGSr  ( n A M E , lN,biG,SMELL,bLAM,tukD,GkJD,SEU, 

. 1PSPC,SMaT  , bMA  I , NBIG) 

DIMENSION  blCiUMOlb,  b)  , SHELL ( 12,  1 ) , BE  AM (21 , 1 ) , CURD  ( 3 , b , 1 ) , 

. GkJU(13,  1),SLU(1),1PSPC(1),SMAT  ( 32, 32 ),bMAT (17,  1 /) 

InTEGLK  SEU 

ASSEMBLE  MASTER  STIFFNESS  OR  MASS  MATRIX 

CUMMON/N/NCDRU,NUMNP,NSHELL,NPSHEL,  NPSHELX,  NSHLT  Y , NBE AM, NPBE AM, 
, NBMT  Y , NMA T , NSPUlNT  , MAXGRU,  NDUF 

CUMMON/CUNT  RL/ECHO , ERR , MA  T GEN , UYN, APPLD, PLOT  , DBUG, BAD , NCORE  , 

, YtTMASSrNAST  Y 

LOGICAL  ECHO,  tRR , MAT  GEN  ,DYN, APPLD,  PLOT  , DBUG,BAD 
DIMENSION  T11(3,3),T12(3,3),TJ1(3,3),TJ2(3,3),U(3,3) 

DIMENSION  MANE ( 2 ) 

MATRICES  1SH  AND  IBM  GIVE  INDICES  INTO  SMELL  AND  BEAM  ELEMENT 
STIFFNESS  MATRICES  GIVEN  LUCAL  NODE  NUMBER  (SHELL  - 1 TO  8, 

BEAM  - 1 TO  31  AND  DOF  NUMBER  (1  TO  6) 

COMMON/ ASS/ I SH( 6, 8) , IBM (6, 3) 

DATA  ISM/ 

1 1,2, 3, 0,0,0, 

2 a, 5, 6, 7,8,0, 

3 V, 10, 11,0,0,0, 

4 12»13,14,lb,lo,0, 

5 17,18,19,0,0,0, 

0 20,21,22,23,24,0, 

/ 2b, 2o,27, 0,0,0, 

8 28,29, 30, 31 , 32, 0/ 

DATA  ldM/ 

1 1,2,3, 12, 13, 14, 

2 4, b, 6, 7,8,0, 

3 9, 10, 11, lb, 16,17/ 

GO  TO  (10,20J, NASTY 

10  MANE11J=NAME 
MAnE(2)=4H 

CALL  UU21N1 (4,MANE,NDUF ,NDOF ,6, 1CNT R , 1 0000 , NDUF ,1,1,101) 

GO  TO  2b 

20  CALL  0U4IN1 (4, NDUF ,NDOF ,6, 1,NAME) 

PRIMARY  LOOP  OVER  NODES 

2b  NCUL=0 

DO  210  1 s 1 , NUMNP 

CLEAR  SPACE  FUR  6 COLUMNS  FOR  THIS  NODE  (ALL  ROWS) 

CALL  MUVER ( 0,0, BIG, 1,6*ND0F) 

IF  (NSMELL.EG.O)  GO  TO  100 
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SEAnLh  FUR  SHlLL  ELEMEMS  lHAT  JUUth  IMIS  NUDE 


C 
C 
L 

DU  7 0 R=1,NShELL 
LNUL>2  = 6 

II-  (SHELLS,*)  .EQ.O)  LNODZ=b 
DU  bO  L=l,LNODZ 
LNUD=SHELLlL+2,K} 

IF  ILNOD.NE.I)  GO  TO  bO 
C 


c 

c 

r 

FOUND  ONE  l CORNER 

L OF 

tLEMENT 

K),  GET 

element 

CALL  READMSl 1N,SMAT,32* 

32, 1F1XI 

SHELL l 1 

1 , K ) ) ) 

L 

c 

r 

LOUP  ON  b DOF  FOR 

THAT 

NUDE 

r 

DU  SO  LLS 1 » b 

L 

C 

SEE  IF  This  DOF 

IS  AC 

TlVE  FOR 

THIS  NODE 

c 

IF  SO  GET  INDEX 

INTO 

ELEMENT 

MATRIX 

C 

LLL=lSH(LL,L) 

IF  (LLL.EG.O)  GU  TO  SO 
C 

t LOOP  ON  all  b lb}  NODES  F OK  COUPLING  TERMS 

C 

DU  40  M=l,LNODZ 
DU  30  MM=l,b 
MMM=ISH (MM, M) 

IF  (MMM.EQ.O)  GO  1U  30 
C 

c Gt T RUW  NO.  FOR  MASTER  MATRIX 

MN0D=SHELLlM+2,K) 

C 

161G=b*(MN0D-l)+MM 

BlG(IBlG,LL)=blG(lBlG,LU+SMAT  ( LLL » MMM ) 

30  CONTINUE 

ao  CONTINUE 

50  CONTINUE 

bO  CONTINUE 

70  CUNT1NUE 

C 

C SAME  SUNG  + DANLE  FUR  bEAM  ELEMENTS 

C 

IF  INBEAM, EU.O)  GO  TO  lbO 
100  DU  170  K=1,NBEAM 
DO  lbO  L5 1 , 3 

LNUD=BEAM(L+2,K) 

IF  (LNOD.NE.l)  GO  TO  lbO 

CALL  READMS(1N,BMAT , 17*17, IF IX(BEAM( 1S,K) )*NSHLT Y) 
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du  l bo  11=1, t> 

LLL=lDM(LL,L) 

U (LLL.EG.O)  GJ  IU  lbO 
UU  1AO  M=l,i 
DO  140  MM=l,b 
MMM=lbM(MM,M) 

IK  (MMM.EO,0)  GQ  10  130 
MN0D=bEAM(M+2,K) 

1 b 1 G = b * (MNUD-D+MM 

blG(  lBlG,LL)=blG(  lbIG,LU  tbMAT  ( LLL , MMM ) 

130  CONTINUE. 

190  CUNT  1 NUE 

1 bO  CONTINUE 

lfc>0  CUNT  I NUt 

170  CUN1INUE 

IRANSFURM  TO  OUTPUT  COURUlNATtS 

0 1 G=SEU ( I ) 

CALL  MUyER(0,0,Tll,l,9) 

CALL  MUVER(1.,0,T11,«,3) 

CALL  MOVER (0, 0, T 12, 1 , 9) 

CALL  MOvERd  .,0,T12,9,3) 

1C0RD=GR1D(9, 1G) 

IK  (lCURD.GI.O)  CALL  MU VLR C CORO C 1 , 3 , 1 CURD ) , 1 , T 1 1 , 1 , 9 ) 
IK  UCURO.GT  .O.ANO.IPSPLCIG)  .NE.6) 

. CALL  M0VER(C0RD(1, 3, KURD), 1,112, 1,9) 

DO  190  J = 1 , NUMNP 
JG=SEU( J) 

CALL  MOVER (0,0, Tjl, 1,9) 

CALL  MUVERC 1 , , 0, T J1 ,9,3) 

CALL  MUVLR(0,0, T J2, 1,9) 

CALL  MOVER ( 1 • , 0 , T J2 , 4 , 3 ) 

JCURU=GK1DC9, JG) 

IK  (KURD. EG, 0. AND. JCORD.EG.O)  GO  10  190 
CALL  MOVER l CORD (1,3, JCUKD),1,1  J 1 , 1 , 9 ) 

IK  (IPSPC(JG).NE.b) 

. CALL  MOVtR(COKD(l,3,JCORD), 1,TJ2, 1,9) 

CALL  TRIPLE (TJ1 ,BIG(b*J-5, 1),T II , NDOK,  3,(3) 

CALL  lRlPLfc (TJ1 ,BlG(b*J-b,4), T12, NDOK  ,3,0) 

CALL  1 RlPLt ( T J2, BIG (o*J-2,l), Til, NDOK,  3,0) 

CALL  TRIPLE (T J2 , BIG ( b* J-2 , 4 ) ,TI2,ND0F, 3,0) 

0 CONTINUE 

*E  NOw  HAVE  6 COLS  OF  THE  MASTER  MATRIX  ASSEMBLED 
11ME  TO  nRIJE  THEM  OUT 

DO  200  J=l,6 
NCOL=NCOL+1 
IF  (NASTY. EG. 1) 
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200 

210 


CALL  UU2CUL  ( A,  blUl  1 , J ) , NUUF  , lML»Uf-  , 1LN1 h,  1 H PUS,  M A ML  ) 
IF  lNASlT,fc.U»2) 

CALL  UUACUL(A,blb( 1 , J)  #NUUF  ,NDuF  , NCULr  NAM) 

Cun  1 i nue. 

CUN  I lNUt 
KE  T UKN 
fc.Nl) 
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SUbKOUl  1 ivt  ASSL(NAmE,  1 im  , b 1 G , ShL L L , tit  AN, , C UK 0 , GRl  D , St  Gl , 

. 1 PSPL , SLUAD, bLUAD) 

DIMENSION  tllSll  ) ,SHtLL  l 12,  1 ) , bEAMtt?l  , 1 ) ,C0kD(3,5, 1 ) , Gk 1 0 ( 1 3 , 1 ) , 
. SEU(  1 ) , 1PSPC  l 1 ) , SLOAlH  32) , bLUAD (32) 

lNlEGEk  SEu 

CUMMON/N/NCURD,NUMNP,NSFlELL,NPSrtEL,NPSHELX,NSFILl  Y , NbE AM, NPBE AM , 
, NbMTY,NMAl ,NSP01M ,MAXGKD,NDUF 

COMMON/CUN TRL/ECmU, ERR, MAI  GEN, DYN,APPLD,  PLOT , DBUG , BAD , NCURE , 

, rtTMASS, NASTY 

LOGICAL  ECHO,ERK,MAIGEN, DYN, APPLD,PLOT  ,ObUG,bAD 
DIMENSlUW  U(3,3) 

DIMENSION  MANE ( 2 ) 

COMMON  All) 

CUM MGN/ ASS/ ISM (to, 8)  , IBM (to, 3) 

GO  TO  (a, S), NASTY 
a manE(1)=name 

MANE (2) =0 

CALL  Ou21N1 (4,MANE,NDUF ,1,2, 1 CN T R , 1 0 0 0 0 , NDGF ,1,1,101) 

GO  TO  b 

5 CALL  UU4IN1 (4,NDUF , 1,2,1, NAME) 

8 CALL  MOVtR(0,0,blG, 1 , NDUF ) 

00  200  1=1 , NUMNP 

IF  (NSHELL.EU.U)  GO  TO  bO 
DO  4 0 K= 1 , NSHELL 
00  30  L=  1 , 8 

LNUD=SHELL(L+2,K) 

IF  (GR1DC 1 1 ,LNOD) ,NE. I ) GO  TO  30 

CALL  REAOMS( IN,SLUA0, 32, IF IXISHELLI 1 1 ,K) ) ) 

00  10  LL=l,to 
LLL=ISH(LL,L) 

IF  (LLL.EO.O)  GO  TO  10 
lBlG=to* (GR1D( 1 1 , LNOD ) * 1 ) tLL 
bIG(lBIG)=blG(IBlG) *SLOAD(LLL) 

10  CONTINUE 

30  Continue 

ao  CONTINUE 

IF  ( NBE AM , EG • 0 ) GO  TO  150 
50  00  1 AO  K = 1,N6EAM 

DO  130  Ls  1 , 3 

LNOD=BEAM(L+2,K) 

IF  (GR1D(1 1,LN0D) .NE.l)  GO  TO  130 

CALL  READMSC IN,BL0AD, 17, IF  IX (BEAM ( 15, K) HNSHLTY) 

DO  110  LL=l,to 
LLL=IBM(LL,L) 

IF  (LLL.EO.O)  GO  TO  110 

IBlG=to*(GRIOlll,LNOD)-l)+LL 

BlG(lblG)=BIG(lblG)+BLOAO(LLL) 

110  CONTINUE 

130  CONTINUE 

140  CONTINUE 
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iso  ib=stuU) 

icuNo=L.Hiiu‘y,  ig) 

CALL  MUVER(0, 0, T 1 , 1 ,4) 

CALL  M(jVER  1 1 . / 0 / 1 1 , 4 / 3 ) 

CALL  MUvER(U,  0#  1 2,  1 ,R) 

CALL  muVER(1.,Q,T2,4,3) 

If-  (1CURD.EQ.Q)  GO  10  200 

CALL  MOVER (CORO U , 3/  I CORD) , 1 , T 1 , 1 , 4) 

IF  (1PSPCUG)  .NE.b) 

CALL  MOVER CCURDl  I#  3, I CORO) , 1 , T2, 1 ,9) 

CALL  DOUBLET blG(6* 1-S) , T1 /NDUF ,3/0) 

IF  (NASTY. EU. 2)  CALL  GU4C0LT4, BIG, NDOF, 1,1, NAME) 

200  CUMInUE 

IF  (NASTY. LQ.l)  CALL  0U2C0L  ( 4 , b 1 G , NDOF  , 1 , I CM  R , 1 RPOS , M ANE  ) 
IF  (NASTY. EU. 2)  CALL  0U4C0L ( 4 / b I G / NOOF / 1 / 1 / N AME ) 

END 
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SuBkUU  I 1 PAwvtL 

CUNMUIM/LUNl  HL/tCMU/  tHK,  hM  I lit  N , U Y Im , APPLl) , PLG 1 , DBUG#  BAD*  NCUHt  * 

. n l MASS, NAS  It 

LUG1C«L  tCHUftUNfMATGtfMfUTNfAPPLDfPLUl  , UbUG,BAD 
GUKMUw/lM/MLJKUr  ImUMNP,  NSHtLL , NPSHt L » NPSHE L X , NSHL T Y,  NBtAM,  NPBEAM, 
, NbMT  Y , i»MAT  » NSPUlNl  ,MAXGKU,  NUOF 

Ul^tNSIUN  N AMt l 2 J 
CUMMOn  All) 

DATA  NAMt/aHPAKVr 2HtC/ 

wbuF  simCOkE 

CALL  MUHCUP l NL)UF ) 

CALL  MUVtR 10, 0, A (NbUF ) , 1 , b*NUMMP) 

CALL  MUVERll.O,0,AlNBUF+t>*NUMUMNP),  1,NSP01M  ) 

CALL  UU<;iNl  (4,*AMt,  1 ,Nl)UF  ,2, 1CM K,  1 0000# NOOF  , 2 , 1 , 1 0 1) 

CALL  OU2CUL(4,A(NBUF), 1 , NDOK , ICnTR, I KPUS , NAME ) 

NClRt=NBUF 

KtTUKN 

ENl) 
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5 U6  KuU 1 1 ■ ■J  L UU4CuL(NHU#AfNKUAS»NCULS»NCULN*NAPL) 

C uuatUL  o30i7b“lb2b 

L KLviStL)  P uR  MSC  LtvtU  do 

UlKtNSlUN  A(l) 

DU  20  1 = 1 » NRUaS 
IP (All) ,WL.O.)GO  TU  30 
20  CUNUNUL 

If-  (NCULN.Ll  .NLOLS)  RET  URN 
GO  10  70 
30  NS  T AKI  = 1 

U0  60  1=NSTAR1 t NRQaS 
IP  lA(l).iMt.0.)NSIUP  = l 

b o continue; 

imksNSI  OP-NST  AR1  +1 

ARlTt(NRU)  NCULN,NSTAR1 fNn, (All)rl=NSTART,NSTUP) 
IP  (NCOLN.LT  ,NCuLS)RETURN 
70  N0UM1=NCULS+1 
N0UM2=1 
D U P = “ o ^ * 

aRITEINKU)  NDUMl  ,Nl)UM2»NDUM2fL)UM 
PRINT  1 000  » NAMt  t NRU 

100O  F0RMAH21H  0U4CUL** *DAT A BLOCK  , A10, 

+17M  *RI  HEN  TO  UNIT  , 12) 

RETURN 

tNl) 
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SUDkUU  1 i nt  UU4iNl  (NkU#  NkUftSr  Nl(JLS»  nP  UKkl»  NT  YHt  * NAMt ) 
(,  Uij41nl  OiOi7S-lb20 

C kEvlStU  H)K  MSC  LtvtL  2<> 

rtKlltl'^kU)  NLULS»  Nk(J*Sf  Nf  UkM,  N I tPL 
PklM  100>NAMt,NkU 

100  FUkklATl3<2H  (JU4  1 N 1 * * * HE.  AtftR  MJ*  DATA  bLUC*  #A10, 
t 1 7h  fcklTltN  TO  UNIT  ,12) 
ktTUkN 
END 
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C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


«o 

bo 


SUbRUUl  l'*E  UU2C0LINKU,  A,NCULS,NRUwS,  1CNIK,  1RP0S,MNAmE) 
UU2LUL  042374-loOb 


WRITE  REAL  S.P.  NOW-ZERO  VALUES  OF  A MATRIX  COLUMN  IN 
OUTPUl2  FURMA1-MUST  CALL  UU21N1  bEFOKE  INIS  TO 
WRITE  HEADER  on  UUTPUT2  MATRIX  FILE 


9/16/74...  GET 

DIMENSION  A(  1) , 1SAME(4) , 1RPOS 1 1 ) , MN AME ( 2 ) 
DATA  1SAME/1 ,0, 0,2b4201/, 1EOR/131071/ 


ICNTR=1CN1 R-l 

IF  (IAbS(lCNTR*2) .UT.NCOLS)  GO  TO  40 
WRITE ( NRU ) NROwS 
WRITE(NRU)  (A(I),1=1,NRUWS) 

WRITEINRUHCNTR 

30  IF  (IAbS(lCNTR+2),NE,NCULS)  RETURN 
NWRDS=0 

wRITElNRU)  NwRDS 
PRINT  60 , MN AmE , NRU 

60  FORMAT  ( 22H  OU2COL***  DATA  bLOCK  ,2A4, 

♦17h  WRITTEN  TO  TAPE  ,12) 

RETURN 

PR1N1  bu, IMnAmE(I), 1=1,2) 

FORMAT l b 1 H 0U2C0L***  ATTEMPT  TO  WRITE  MORE  COLUMNS  THAN  EXIST, 
+12H  FUR  MATRIX  ,2A4) 

END 
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SUbKUUl  1 nE  UU2 1 N 1 ( NkU , MNAMt , NCUL  S , NkUwS > 1 F Ukk , ICMP,  1 DNS1  Y , MCUL , 
♦ II  Ykt,  ISKlP,  IPOS) 

L UU21N1  09237u-lb00 

C 

C WHlTt  HEADER  1 IMF  URMA 1 IUN  1 Im  0U1PUI2  F URMA  T 

C CALL  0U2CUL  AFTEk  THIS  TO  0U1PU12  A MATRIX 

C CALL  U2USET  TO  OUT  PUT  2 UStT 

C 

C 9/1B/74, ,.UET 

C 

DIMEnSIUN  NAST (7) ,MNAMt(2) 

C 

L) A 1 A NASI/4HNAS1  ,«HRAN  ,4HF0kT»4H  TAP,4HE  ID,4H  CUD,4HE  - / 

U A ] A LABL/«HXAXX/ 

C 

901  FORMAKiClX,  12)  ) 

C 

IF  (ISKlP. Nt.O)  GO  TU  10 
REwlND  NRU 
NwRUS  = 3 

wRITE(NRU)NwRDS 
CALL  DA  1 L (DAT) 

DECODE (9,901 , DAT ) 1MO, IDA, 1 YR 
WR1  1 E (NRU)  IMO,  IDA,  1 YR 
NwRDS=  7 

wR 1 I L ( NRU ) UwRDS 
WRITE(NRU) (NAST  1 1 ) , 1 = 1 , 7) 
naRDS=2 

WRITE(NKU)N«KDS 

wklTE(NRU)LABL,LABL 

ICNlRs-l 

«klTt(NkU)ICNlR 

1CNTR=0 

rtRITtINRUjICNTK 
10  NrtRDS=2 

wRl TE (NkU)NwRDS 
wkllE(NRU) (MNAME(1),I=1,2) 

1CNTR=-1 
wRlTE(NRU)  1CNTR 
NWRDS=8 

wRITE(NRU)NwRDS 

WRITE (NRU) IPOS, N COLS, NRUwS, 1 F ORM, I T YPE , MCOL , I DNS T Y 
. » 1 
ICNTR=-2 
«RITt(NRU)lCNTR 
PklNT  20,MNAME,NRU 

2u  F ORMAT ( 33H  UU21N1***  HE AUtR  EUR  DATA  BLOCK  ,2A4, 

♦17H  WRITTEN  TO  TAPt  ,12) 

RE  1 UkN 
END 
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bUHKUU  I 1 IsiL  1 KIPLt  l A,  X , b,  N, I*.,  U ) 

D 1 ML  NS  i Uu  A l M , M ) / X ( ft  t **|  ) > D l K t 1“'  ) t U l P t M ) 


1 

DUP  PU  1 t T K 1 Put-  M A 1 K 1 X PKUUUU  U = A Xb 

L)U  <?0  1 = 1,M 
DU  <>0  L= 1 # M 
U(1,L)=0. 

DU  <fO  J = 1,M 
Xb  = 0 . 

DU  10  K=1,M 

xb=xb+xij,»\  i*ihk,l) 

U(l,U=Ull,L)*A(J,l)*XB 
DU  30  1 = 1, PI 
DU  30  J = 1 , M 
X(  1 , J )=Q( 1 , J) 

RE.  1 URN 
tND 


5U0RUU  I 1 imE.  DUUbLt  l x , A , N,  M,  u ) 

UiVtlMSlUK  X IN,  tf)  , A lM,  Ri)  , U (R,  M) 

C 

L LuKHUlt  MAlRlx  RftuDuLl  U = XA,  SIURE  U IN  X 

C 

L>0  10  1 = 1,  M 
DU  10  K=1,M 
UU,M  = 0, 

DU  10  J=  1 , M 

10  0 ( 1 , K ) =N  (l,K)+Xll,J)*A(J,K) 

DO  20  1=1, M 
DU  20  J = 1 ,M 

2 o x(i,j)=uil,J) 

RETURN 

END 
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SUBROUTINE  nALUUFINEL,  AREA,  ELXYZT,  FRAM,  POINT,  SIDE,  IHIk, 

, wSnEL,  X i 1 A , LNUOS » LNODZ , LVABZ,  NUDEL) 

L 

La*,  TU  CREATE  SHAPE  FUNLT1UN  AkKAt  WSHEL,  MJR  SEMlLOOF  SHELL  ELEMENT  , 

C 

L***  WRITTEN  BY  bHULt  IRONS,  JULY  1972,  WASHINGTON  D.C. 

C 

DIMENSION  AkEAV(3),  FRAME(3,3J,  GENS  ID (6,  A ) , 

1  ShEAK  (11,43),  S1GU3),  SwOPU),  TH1KDD13,3),  TRANS(2,2), 
d VL0UFC3,36),  wLORNllO,3),  wLOOFllO,3),  X(iAUS(A,A),  XILU0F(9,A), 

3 XLOCAL12),  X Y ZDD (3,3),  XYZPRE(8,A) 

DIMENSION  ELXYZT (9, A) , FRAM(3,3)»  PDlNl(3),  WSHEL ( 1 3 , A5 ) , 

. X1TA12),  LNODSCNODEL,NEL) 

EUU1 VALENCE  C T 1 1 , 1 R ANS U , 1 ) ) , ( T 1 2 , TK ANS C 1 , 2 ) ) , 

I  IT21 , 1RANS12, 1 ) ) , 1 1 22 , TRANS  (2, 2 ) ) 

DATA  GENS1D/1.,  -1,,  0,,  3*-. 5,  0t,  1.,  -1.,  AM.,  0.,  -1., 

1 A*0  . , 1.,  0.,  -1.,  2*1  ./, XlLUQF/ ,21 132A8b6,  2* . 788675 1 3A , 

2 ,21 l32A6bb,  2*0,,  .3333333333,  A*0t,  ,21132A8b6,  2*  , 788b75 1 3 A , 

3 ,21132A8bb,  ,3333333333,  2*0,,  -,577350269,  ,S773502b9,  2*1,, 

A ,577350269,  -,577350269,  2*-l«,  0,,  2*-l,,  -.577350269, 

S .S773S0269,  2*1,,  .S773S0269,  -.S773S0269,  0,  /, 

b XGAUS/0.,  A * , S , 0.,  2*  . S , -.577350269,  2*  .577350269, 

7 3*-, 577350269,  2* .57  73502e9/ , X Y ZPRE/ 32* 0 . 0/ , NOZPRE/O/ 

C 

C***  GENERATE  NSTAGE  (U  DEFINE  PA1H  IHROUGH  HALOOF  , 

L 

N ERROR  = 1 

IF (LNODZ.NE.b.  AND  ,LNODZ,NE,8)  GO  TO  99 
NSTAGE  = A 

IF (LNODZ.nE.NOZPRE ) NSTAGE  = 2 
NOZPRE  = LNODZ 
DU  2 LNQD  = 1, LNODZ 
DO  2 NX  = 1 , A 

IF lELXYZT(LNOD,NX) , NE , X Y ZPRE CLNUD , NX ) ) NSTAGE  = 2 

2 CONTINUE 

IF  INST  AGE. EU. A)  GO  TO  18 

C***  INITIALIZATION  FOR  NEW  ELEMENT,  NSTAGE  = 1.  FIND  CENTRE  COORDINATES 
C 

L1MZ  = (3*LNODZ)/2  - 1 
LVABZ  = A*LNODZ 
LNODZ A = LNODZ  + 1 

LVABZA  = LVABZ  t 1 
LVABZZ  = LVABZ  ♦ LlMZ 
DO  3 L = LNODZA, LlMZ 
DO  3 J = 1, LVABZZ 

3 SHtAR(L,J)  - 0.0 
DO  5 NX  = 1 , A 
GASH  = 0.0 
LNODZ 1 = LNODZ/2 


non  n p n c o cpoo 


UU  A KUHN  = 1,  LNUDZ1 

UU  <4  K £ 1*2 
u GASn  s uaSm 

1 ♦ B,O*ELXYZH<?*KURN  + iv-2,NX)/FLUAU216*K-«O0-LNODZM21aK-«1  )) 

S tLXYZT  t V , im  X > = GASH 

***  01 AGnOST  ICS  FOR  A NErt  ELEMENT,  RELATE  COORDINATES  TO  CENTRE , 

DU  10  1 : 1,  LNODZ 
N ERROR  = 2 

IF  IELXYZT (1,4) .LE.0.0)  GU  TO  99 

IF ( 1 ,tU. LNODZ)  GU  TO  V 

JA  = 1 ♦ 1 

UU  6 J = JA,  LNUUZ 

N ERROR  = 3 

1A  r lAbS(LNOUSlI,NEL) ) 

lb  s 1ABS(LN0US( J,NEl) ) 

IF (1A  ,EU.  Ib)  GO  TO  99 
UU  7 K = 1,3 

IF (fcLXYZI (l,K),NE,tLXYZT ( J , K ) ) GO  TO  tt 
7 CUMlnUE 

N ERROR  = a 
GU  10  99 
b CGNTINUt 
9 UU  10  NX  = 1,4 

1P(NX,NE,4)  ELXYZ1 (1,NX)  = ELXYZT(1,NX)  - tLXYZT(9,NX) 

10  X Y ZPRE ( 1 , NX ) = ELXYZTCI,NX) 

***  CREA1E  SwUP  = 1.0  UR  -1,0,  TO  IMPLEMENT  SIGN  CHANGES  A1  LOOP  NODES. 

***  ALSO  INTERPOLATE  TO  ES1IMATE  NORMAL  THICKNESSES  AT  LOOP  NUDES, 

VLOOF (1,LVABZA)  s ELXYZT(9,4) 

DU  12  NSIDE  s 1,6 
12  SwOP INSIDE ) = 1,0 
LAST  = LNODZ  - 1 
DO  14  NEXT  = 1,  LNUUZ,  2 
MID  = LAST  ♦ 1 
1A  = I ABS (LNODS ( NE X T , Nt L)  ) 

IB  s 1ABS(LN0US(LAST,NELJ ) 

I F C 1 A , L I , IB)  SwUP (MID/2)  = *1,0 
VL0UF(l,4*LAST-3)  = . 95534 1 BO  1 *ELX Y Z T ( L AST , A ) 

1 ♦ ,666b66667*ELXYZl IM1D,4)  - ,122OO0460*ELXYZT (NEXT, A) 

VLOOF  (1,4* MID** 3)  = •,1220Q84bB*ELXYZT  (LAST, A) 

1 + ,666666667*ELXYZT  (MiD,aj  ♦ , 45534 1 BO  1 *tL  X YZ  T ( NEX  T , <1 ) 

**  ALSU  CHECK  THAT  MIDSIDt  NODtS  ARE  REASONABLY  CENTRAL, 

GASH  : 0.0 
GISH  = 0,0 
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GUSH  = b.O 

UU  13  1 = 1,3 

E L M I D = ELXYZT (MlU,  1 ) 

GASH  = GASH  + (tLXYZT  (NExl  , I)-ELMlD)**2 
GISH  = OXSh  * (ELXYZT (LAS1 , 1)-LLM1D)**2 
13  UUSri  = GUSH  + (ELXYZTUAST,  I)*ELXYZ  I (NEXT  , 1)-ELMID-ELMID)**2 
N ERROR  = 5 

C IF (ABS(GASH-GISH) ,GT . 0 . 09 0* ( GASH+G I SH ) ) GO  TO  99 

N ERROR  = 6 

C IF (GUSH. GT ,0,2b* (GASHfGISH) ) GU  TO  99 

19  LAST  = NEXT 

L rtKITE(b,602)  SnUP,  (VLOOF(l,I),  1 = If  LVABZA,  9) 

Cb02  FUKMA1(/7h  SwJH  =,bF6.3//26H  IHICKnESSES  AT  LUOF  NUDES/  1 X , 9F  1 3 , 8 ) 
t 

C***  ORGANISE  LOUP  AKUUND  LUOF  NUDESf  F OR  NST  AGE  = 2 
C 

C***  DU  7b  nSIAGE  = 2,9  (IN  EFFECT) 
lb  NLCUF  = 0 
lb  NLUUF  = NLOOF  + 1 

C***  DU  b7  NLUUF  = 1,  LNUDZ+1  IF  NST  AGE  = 2, 

C***  UR  DO  b/  NLUUF  = 1,  (3*LNODZ)/2  IF  NST  AGE  = 3, 

DO  17  1 = 1,2 

IF ( NSIAGE, EO. 2,  OR  , NLOOF , LE . LNODZ ) 

1 XLUCALll)  = X1LUUF (NLOOF ,LNUDZ+l-b) 

C 

G***  AND  ALSU  AKUUND  INTEGRATING  POINTS  IF  NST  AGE  = 3, 

C 

IF (NSTAGE.EQ.3.  AND  .NLOOF ,GT .LNODZ ) 

1 XLOCAL(l)  = XGAUS(NL0UF -LNODZ, LNODZ* 1-6) 

17  CONTINUE 
GU  TO  23 
C 

C***  OTHERWISE,  ORGANISE  SINGLE-SHUT  OPTION,  FUR  NST  AGE  = 9, 

C 

C***  TEST  nHETmER  INPUT  POINT  IS  A LUOF  NUDE,  PLUS  OR  MINUS  0.0001, 

C 

16  DU  19  I = 1,2 

19  XLOCAL(I)  = XlTA(l) 

NLUOF  = LNODZ A 

DU  22  MAYBE  = 1, LNODZ 
DO  20  1 = 1,2 

IF (ABS(XLOCAL(l ) -X 1LOOF ( MAY  BE , LNODZ + 1-6)), GT, 0,0001)  GO  10  22 

20  CONTINUE 
NLUOF  = MAYBE 

22  CONTINUE 

IF (NLOOF. LE.LNUDZ)  WR1TE(6,609)  NLUUF 
609  F0RMAK/36H  INPUT  POINT  RECOGNISED  AS  LOOF  NUDE, 13) 

C 

C***  CREATE  VALUES  AND  Xl,ETA  DERIVATIVES  UF  X,Y,Z  IN  XYZDD,  T IN  T H 1 KDD 
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23  LUUIlHUt 

out)  FUKNiAT(/l3h  ***  nSIAGE  =,12,10h,  NLUUF  =,13,7H,  Xl  =,F12,8, 

1 bH,  tl A = ,F l2,b) 

CALL  SFR(XLUCAL,  KCORN,  wLOOF , NSTAGE,  LNODZ) 

K = 0 

DU  2 7 1 = 1/3 
DU  2b  J - 1,3 
GASH  = 0,0 
DU  24  L = 1, LNODZ 

eu  GASH  = GASH  + wCURN  C L + K , 1 ) * E L X Y Z UL  , J ) 

X Y ZUD ( J , 1)  = DASH 

IF  ( NS T AGt  , EU  . 2 ) GU  TU  2b 

GASH  = U.O 

DU  25  L = l,LNODZA 

25  GASH  = GASH  * WLUOF (L  + K, 1 )*VLOOF C J,  4*L*1) 

1 H 1 KDD ( J , 1 ) = GASH 
2b  CONTINUE 

27  K = 1 

L wkITE(b,b08)  XYZDD 

C bob  FUKMATl/oH  XYZDD/ tl X, 3F 15, 10) ) 

C IF (NSTAGE, EQ. 3)  WklTE(b,blO)  T H 1 KDD 

CblO  FUKMATC/7H  THlKDD/ ( 1 X , 3F 15. 1 0 ) ) 

C 

C***  CREATE  VECTOR  AkEA  s VAREA,  AT  GIVEN  POINT  XI,  ETA, 
t 

CALL  VEClORIXYZDDll ,2),  XYZDD(1,3),  AREA  V 1 1 ) ) 

CALL  SCALAH(AREAVCl),  AHEAV(l),  ARE ASQ) 

N EkkUR  = 7 

IF ( AREASU.EQ.O.O)  GU  TO  99 
AREA  = SURT  (AkEASGl) 

C wR!TE(b,ol2)  AREA,  ARE A V 

Cb 1 2 FORMAT  t/ 7H  AREA  = , F 1 3 , 1 0 , 1 0 X , 1 3HARE A VECTOR  =,3F13,10) 

C 

C***  NURMALISE  VECTOR  AREA  INTO  FRAME,  CUL.3,  AS  LOCAL  UNIT  NORMAL  Z, 
C 

C*«  * COLUMN  2 OF  FRAME  BECOMES  UNIT  Y AROUND  EDGE. 

C 

DU  30  1 = 1,3 

FRAME  11,3)  = ARE AV  1 1 ) / AREA 
GASH  = 0.0 
DU  29  J = 1,2 

29  GASH  = GASH  + GENS  1 D ( ( NLOOF ♦ 1 ) /2 , LNODZ + J-6 ) * X YZDD ( 1 , J ♦ 1 ) 

30  F R AME  1 1 , 2 ) = GASH 
C 

C***  NORMALISE  Y,  AND  IMPLEMENT  SrtOP  BY  REVERSING  SIGN  OF  Y. 

C 

c**»  PUT  APPROXIMATE  VECTOR  THICKNESS  ETC,  INTO  VLOOF , FOR  NST AGE  = 2 
C 

N ERROR  = B 

CALL  SCALAR(FRAME(1,2),  FRAMEll,2),  SIDESQ) 
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ooo  ooooo  o o o o o o o n o o 


IP  (Slutsu.Eu.u. v)  Gu  iu  99 
Slut  = SUKT(SIDESU) 

uu  ii  1 = 1,3 

F R AME ( 1 , 2 ) = FhAMt( 1 ,2)*SftUP(  ( NLOOF t 1 ) /2 ) /S 1 DE 

IF  (NST AGE. nE. 2)  GO  10  31 

VLOOF (l,9*NL0UF-2)  = FRAME(I,2) 

VLOOF  U , 9*NLU0F-1)  = F R AME  ( 1 , 3)  * VLUUF  ( 1 , H*  NLOUF -3 ) 

VLOOF (If <4*  NLOUF ) s FRAME(1,3) 

31  CONTINUE 

***  AND  COLUMN  1 IS  UNIT  X,  THE  OUTWARD  POINTING  IN-PLANE  NORMAL, 

CALL  VECT0R(FRAME(1 ,2),  FRAME(1,3),  FRAME (1,1)) 

IF  (AbS(XlTA(l)).ECl,l,.0R.A8S(xnA(2))#tU,l,)  RETURN 
WRITE(6,t>14)  ( (FRAME (J>  I ) , 1 = 1,3),  J = 1,3) 

61«  F0RMAT(/«9H  COLS  OF  FRAME  ARE  UNIT  LOCAL  CARTESIAN  AXES// 

1 (IX, 3F 13,10)) 

***  CHECK  THAT  NORMALS  ARE  REASONABLY  PARALLEL,  WHILE  NST AGE  = 2, 

IF (NST  AGt,GT ,2)  GO  TO  35 
IF (NLOOF ,EO, 1 ) GO  TO  6/ 

KZ  = 4*NL0UF-« 

DU  32  K = a,  KZ,  « 

CALL  VECTOR(VLOUF ( 1 ,4*NLU0F ) , VL00F(1,K),  POlNT(l)) 

CALL  SC ALAR( POINT (1),  PUlNT(l),  COSSO) 

N tRROR  = 9 
IF (COSSU.GT.O.75)  GO  TO  99 

32  CUNTINUt 

***  PLACt  CONTRIBUTION  OF  CENTRAL  NUDE  IN  VLOUF  ( NST  AGE  * 2 ONLY) 

***  COMPLETE  LOUP  NLOOF  = 1 TO  LNODZ  + 1 FUR  NS  1 AGE  = 2. 

IF (NLOOF, LE.LNODZ)  GO  TO  67 
TH1KC  = VLOOF ( 1 ,LVABZA) 

DO  33  I = 1,3 
DO  33  J = 1,2 

33  VLOOF  (I,LVABZ  + J)  = FRAME  ( I , J)  MH1KC 
GO  TO  t>7 

***  CREAIE  THE  2X2  JACOBIAN  MATRIX,  ANU  INVERT  11,  (NST  AGE  = 3 OR  a) 

35  DO  36  J s 1,2 
DO  36  1 = 1,2 

CALL  SCALAR(FRAME(1,I),  X YZOD ( 1 , J+ 1 ) , T N ANS ( J , 1 ) ) 

36  CONTINUE 

C wR 1 TE(6,616)  TRANS 

C 6 1 6 FURMAT(/bH  TRANS/(1X,2F 13,10)) 

GASH  = Til 
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Ill  = \dd/ AktA 
\dd  - GASH/  AKt  A 
1 1 ^ = -I 12/AktA 
T d 1 = -I^l/AKtA 
C *Hllt(b,blb)  TRAnS 

c 

C * * * TRANSFORM  *COk\j  AND  WLOOF  INTO  LOCAL  X,Y  DERIVATIVES, 

C 

DU  <41  hi  = 1 1 LNODZ A 
DO  9 1 1 = 1,2 

GASH  = 0,0 
G1 Sn  = 0,0 
DU  90  J = ltd 

GASH  = GASH  ♦ TKANSCI,  J ) * WCORN l N+ 1 1 , J) 

90  GISH  s GISH  t T HANS ( 1 , J ) * WLOUF IN+11,J) 
rtCURN l N , 1 + 1 ) = GASH 

91  WLOUF IN,  1 + 1 ) = GISH 

C *RlTElb,blb) 

Cblb  F ORMA1 ( / 1 bH  wCORN  AND  HLOQF / ) 

C DU  42  1 : Ii3 

C a 2 wklTE(b,b20)  (wCURNCN, 1) t N = l,LNODZA) 

Co20  FORMAT l 1X,9F13. 10) 

C DU  «3  1 = 1,3 

C 93  rtRlTE(o,o20)  (*LOOF(N,l),  N = 1,LNUDZA) 

L 

C**  * PUT  THICKNESS  AND  DtRlVAUVtS  INIU  LUCAL  COORDINATE  SYSTEM, 

C 

DO  95  1 = 1,3 
DO  99  J = 1,2 
PUlNT(J)  = 0.0 
DU  99  K = 1,2 

99  PU1NKJ)  = POIN(IJ)  ♦ TRANS(J,K)  *THIKDD(l,Kfl) 

DO  95  J = 1,2 

95  THlKDDClfJM)  = POINT  l J ) 

DO  9b  J = 1,3 
DU  97  1 = 1,3 

CALL  SCALAFHTHIKDDI  1 , J)  , F RAPE  C 1 , 1 ) , POINT  C I ) 3 
97  CUNUNUt 

DU  9b  1 = 1,3 
9b  THlKDDClfJ)  = PU1NT (I) 

C wRITE(b,b22)  THIKDD 

Cb22  FORMAH/17H  THICKNESS  VECTOR, 3F12.7//17H  X-DER1  VAT  1 VES  ,3F12,7// 

C 1 17H  Y-DER1VATIVES  ,3F12.7) 

IHIK  = IHIKDD(3,1) 

N EKRUK  = 10 
IF  CIHIK.LE.0,0)  GO  TU  99 
C 

C***  FIND  THE  CHANGE  IN  local  X, Y DERIVATIVES  ACROSS  THICKNESS  OF  SHELL, 
C 

DU  57  LNUO  s 1 , LNODZ  A 
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If-  (NSl  Abt,NE,4)  GU  1 U 51 
DU  SO  I = 2,3 
bASH  - 0.0 
UU  49  J = 1 , 2 

49  bASH  s bASH  - THlKUUCJ,  I)*v*CGKN(LNGD,  J + l) 
bO  H(J I N T II)  = GASH 
C 

C***  CREATt  WSHtL  = SHAPE.  FUNCTION  ARRAY , D1SPL ACtMtNT  TERMS  FIRST, 

C 

51  KORN  = (LNOD+ 1 ) /2 
UU  54  K = 1,3 

KOI  = 2*KORN  + i*LNUO  ♦ K - 5 
IF  (LNUU.GT  ,LNUDZ)  KOL  = 5*LNUUZ  + 2 ♦ K 
UO  53  N = 1 ,3 
FACT  = FRAME(K,N) 

*SHEL(N,KOL)  = rtCORNlLNOU, 1 )*FACT 
IF (NSTAGt,EU,4,  AND  .N.EU.3)  FACT  = 0,0 
UU  53  ND  = 2,3 

53  wShEL(N+N+ND,KUL)  = WCOKN ( LNUU , ND ) * F AC T 
UO  5a  N - 1,2 
UU  5a  NU  = 2,3 

*SHtL(N+7,KOL)  = wSHEL IN+7 , KOL) 

1 - THlKDD(ND-l,l)*wSHtLlN+N+ND,KOL)/THlK 

IF (NSI AGt,EQ,4)  wSHtLlN+N+NU+b,KOU  = (POINT (ND)*FRAMt(K,N) 

1 ♦ THlKOU(3,ND)*wCORN(LNUU,Ntl)*FRAMt(K,3))/THlK 

5a  CUNUNUt 
C 

C***  INTRODUCE  ROTATION  TERMS  WITH  BENDING  ACTION  INTO  NShEL, 

C 

DO  57  L = 1,2 

KOL  = (L-l ) *4*LNUUZ  (2-L)*b*KURN  + LNUU 
IF (LNUU.GT .LNODZ)  KUL  = 5*LN0DZ  + 3 - L 
UO  5b  N = 1,2 

CALL  SCALARCVLUUF ( 1 ,a*LNUU  + L-a) , F RAME ( 1 , N) , FACT) 

WSHEL ( N + 7 , KOL ) = FACT  *I*LUUF (LN0U,1)/TH1K 
IF (NST AGE.Nt.a)  GO  TO  5b 
DO  55  NU  = 2,3 

55  MSHEL(N+N+ND4b,KUL)  = F AC T * *LUUF (LNUU, ND) /Thl K 
5b  CONI INUt 

DO  57  NROw  = 1,7 
57  WSHEL(NRUw,KOL)  = 0,0 
C 

C * * * CUMBlNt  LAST  THREE  COLUMNS  OF  rtSHEL  TU  CREATE  NORMAL  DEFLECTION, 
C 

IF (LNUDZ.EQ.b)  GO  TO  bl 
IZ  = 3*NST AGE  ♦ 1 
DO  60  1 = 1 , 1 Z 
GASH  = 0,0 
UO  59  K = 1,3 

59  GASH  = GASH  ♦ kSHEL (1 , 42  + K ) * VLUOF ( K , 4*LNODZ+4 ) 
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oooooo  ooo  o r:  cr  rr  o o o o r- 


OU  «SMtLll,<4i)  = GASH 

C flKlltl6»o^)  (n,  l wSHtL  l k , N ) t k = 1,13),  N = 1,  LVABZZ) 

Gb24  FUKMAf(/lbH  Ki>HtL  UR1G1NAL/9X,  lHU,bX,  1HV,8X,  lH|*,bX,2HUX,  7X,2HUY, 

1 7A,<?HvX,7X,2HVY,7x,e!HUZ,7X,2HvZ,t>X,3HUXZ,bX,3HUYZ,bX,3HVXZ,bX, 

2 3H>n  Z/bbX  , 1 bHUk  uz  + wx  Ok  vZ  *w Y/ ( I a , 1 3F 9 , b ) ) 
bl  1 F ( NST AGE , EU , 9 ) GU  TO  b b 

***  CktATt  AkkAY  SHEAR,  FOR  1 NT  RODUC 1 NG  T ht  CONSTRAINTS  (NSTAGE  = 3) 

IF  (NLUOF  ,GT  , L NODZ ) GO  TO  b3 

OU  bd  1 = 1 , LV AbZZ 

Sht Ak ( NLUOF , 1 ) = WSHEL(9,1) 

SHtAk(ll,l)  = SHt  Ak  (11/1)  ♦ wSHtL(8,  I)*SlDt*THIK*SwUP(  CNLOOF  + 1 )/d) 
bd  CONT lNUt 
GO  TO  b7 

b3  00  be  KOL  = 1, LVABZZ 
00  bb  NX  Y = 1,2 
GASH  = SHEAk(LNOOZ+NXY,KOL) 

00  bS  MX Y = 1,2 

CALL  SLALAk(FkAvitl  1 ,MXY)  , VLOOF  (1 , U ‘LNODZ+NX  Y ) , FACT) 
bb  GASH  = GASH  + nSHt L ( MX Y * 7 , KOL ) * ARE A* [ HI K*F AC T 
bb  SHtAk(LNODZ+NXY»kOL)  = GASH 

***  COMPLETt  LOOP  AkUUND  LUOF  NODES  ETC,  TO  CREATE  VLOOF  OR  SHEAR, 
b7  IF (NLUOF .LE.LNOOZ.  OR  , 

1 (NST  AGt . EU , 3 , AND  , NLOOF , L T . ( 3*LN0DZ ) /2 ) ) GO  TO  lb 
IF (NSTAGE, NE. 2)  GO  TO  7b 

***  CktATt  PLUS-MINUS  SUM  OF  T HlCKNtSS  VECTORS  AT  LOOF  NODES  (NSTAGt=2) 

DU  70  1 = 1,3 
GASH  = 0,0 
DO  bb  N = 3,LVABZ,4 
bb  GASH  = -GASH  f VLOOF ( 1 , N) 

SI GT  113  = GASH 

***  AND  T Ht  3X3  MATRIX  ASSOClAltD  WITH  IT,  STUkED  IN  XYZDD. 

DU  70  J = 1,3 
GASH  = 0,0 

IF(l.EU.J)  GASH  = FLOAT(LNUDZ) 

DO  69  N : 2,LVABZ,<4 
b9  GASH  = GASH  - VLOOF ( I , N )* VLOOF ( J , N) 

70  XYZDD(I,J)  = GASH 

wRITECb, b2b)  S1GT,  XYZDD 

b2b  FOkMAT (/29H  PLUS-MINUS  ERROR  VtC T OR , 3F 12 , 8// 

1 2BH  MA IRIX  FOR  CORRECTING  I T , 3F 1 2 , b , 2 ( /25X , 3F 1 2 , 8 ) ) 

GET  THE  ADJUGATE  OF  THIS  3X3  SYMMETRIC  POSITIVE  DtFlNITE  MATRIX, 
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K = 3 

ou  n i = 1,3 

CALL  VECTURCXYZDUll , 1) , X Y ZDU U , b- 1 -K ) , F k AME  ( 1 , K ) ) 

7U  = 1 

CALL  SCALAKUYZDDU  , 1 ) , F RAME  11,1),  DE  T ERR ) 

UU  73  1 = 1,3 

CALL  SCALAK(FRAME(1,1),  S1GTU),  PROD) 

73  POlNTU)  = PROD/DETERM 
C wR!TE(b,b28)  FRAME,  POINT 

C62tt  FURMAH/9H  ADJUGA 1 E , 3 ( / 1 X , 3F 1 2 . 8 ) // 1 OH  SULUT  1 ONS , 3F  1 2 . 6 ) 

C 

C***  CORRECT  VECTOR  THICKNESSES  IN  VLUOF , 

C 

FACT  = 1.0 

DO  7b  N = 2,LVAbZ,a 

FACT  = -FACT 

CALL  SCALAR! PU1NT(1),  VLOUF(l,N),  PROD) 

DO  7a  I = 1,3 

79  VLOUF ( I » N+  1 ) = VLOUF ( 1 , N+ 1 ) - F ACT* (POlN I ( I ) -PROD* VIOOF (1 , N) ) 
C 

C * * * CREATE  DIFFERENTIAL  DISPLACEMENT  VECTORS  TO  DEFINE  ROTATIONS. 

C 

C***  THIS  COMPLETES  WORK  FOR  NST AGE  = 2. 

C 

TFIRST  = VLOUF  C 1 , N — 1 ) 

CALL  VECTOR ( VLUOF C 1 , N) , VLUOF ( 1 , Nfl ) , VLUOF ( 1 , N- 1 ) ) 

DU  7b  I = 1,3 

75  VLOUF  ( 1 , N ) = VLOUF II, N)*TF 1RST 
NZ  = a*LHQDZA 

C wRITE(b,b30)  (N,  (VLOOF(l,N),  I = 1,3),  N = 1,NZ) 

Cb30  FORMAT ( /bH  VLUOF / l 1 X , 1 3 , bX , 3F 1 b . 1 0 ) ) 

NST  AGE  = 3 
GO  TO  lb 
C 

C * * * SHEAR  HAS  BEEN  CREATED  In  NLOOF  LOOP  FOR  NST  AGE  = 3, 

C 

C * * * CHOOSE  PIVOT  FOR  REDUCING  ARRAY  SHEAR,  AND  DO  ROW  INTERCHANGE. 
C 

7b  CONTINUE 
C wR I T E ( b , b32 ) 

Cb32  FORMAT l /bH  SHEAR) 

C DO  77  N = 1 , L V ABZZ 

C 77  wRlTE(b,b3a)  N,  (SHEAR(1,N),  1 = 1,LIMZ) 

Cb3a  FORMAT (la, 1 IF  10. b) 

DO  03  L 1 M = 1 , L I MZ 
KP  = LVAbZ  ♦ L 1 M 
PlVUT  = 0.0 
DU  79  L = L I M, L 1 MZ 

IF ( AbSlPlVOT) .GT . ABS(SHEAR(L,KP) ) ) GO  TO  79 
LB  1 G = L 
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PlVUT  = SHEAK(LDlG,nP) 

79  LUN  1 1 UUt 

DO  80  i\  = 1,LVABZZ 
CHANGE  s Shk  AK  (u bl  G , K ) 

SHEAk ILblG* K)  = SHtAK(LlM,K) 

bo  sritAKiLiM, k)  = change /p i vox 

c 

C*»*  REDUCE  ARK A V SHLAK  H)  CREATE  CONSTRAINT  MATRIX, 

C 

C***  THIS  CUMPLtTES  WORK  FOR  NST  AGE  = 3, 

C 

DU  82  NKUn  = 1,L1M* 

FACT  = SHEARlNRUA,*vP) 

IF (NRUn.EQ.LlM.  UR  . F AC T , EU , 0 . 0 ) GO  TO  82 
DO  81  KUL  = 1 » L V ABZZ 

81  SHEAR(NROW,KOL)  = SHEAR (NROw,KOL)  • F AC T *SHE AR (L I M, KOL ) 

82  CUNTINUE 

83  CUNTINUE 

C wRlTE(b,b3b) 

Cb3b  FORMAT (/22H  SHEAR  AFTER  REDUCTION) 

C DO  65  N = 1 , L V ABZZ 

C 85  *RlTE(o,b3A)  N,  (SMEAR ( I , N)  , I = 1,LIMZ) 

NST AGE  = A 
GU  TU  18 
C 

C***  USE  ARRAY  SHEAR  1U  CONSTRAIN  WSHEL  AT  THE  GIVEN  POINT  XI, ETA. 

c 

8b  DU  88  1 = 1 , L V ABZ 
DU  88  J = 1, 13 
GASH  = «SHEl(J,l) 

DO  87  n = 1 , L 1 MZ 

87  GASH  = GASH  - wSHEL ( J , K+LVABZ )* SHEAR (K , 1 ) 

88  wSHEL ( J * 1 ) = GASH 

C wRITE(b,b38) 

CoAO  FORMAT ( 1 A , 13F9.5) 

Cb38  F ORMAT ( / 1 8H  WSHEL  CONS1 RAINED) 

C 

c**  * implement  swop  TO  EXCHANGE  Two  normal  slopes. 
c 

DO  92  N = 8,  LVABZ#  8 

IF (SwUP(N/8) ,EQ. 1 .0)  GO  TO  92 

DO  91  J = 1,13 

CHANGE  = WSHEL ( J , N ) 

wShEL ( J # N)  = WSHEL(J»N-1) 

91  WSHEL(J»N-1)  = CHANGE 

92  CUNTINUE 

C «RlTE(b,bA2) 

CbA2  F0RMAT(/1AH  WSHEL  SwOPPED) 

C DO  9A  N s 1 , L V ABZ 

C 9A  wR!TE(b,bAO)  N,  (wSHEL(J»N),  J = 1,13) 
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c 

C * * * assemble  uxZ,  ut  i,  vxz#  vtz  ro  c k t a 1 1.  axx,  axy,  ayy, 
c 

l rtRlTElb,b44) 

Co44  FORMAll/iOH  A'ShEL  YvITh  SECUND  DC  K 1 V A 1 1 VE  S ) 

D(J  9b  N = 1/LVAbZ 
aShEL110,N)  = -ASHEL  ( 10/N) 

AShELUhN)  = -U.b*  IaSHEL  1 1 1 1 N)  + ASFIEL  (12»  N) ) 
aSHlL(12/N)  = “ASHELC13/N) 

C wRlTt(o,6«0)  N t (aSHELIJ/N),  J = 1»U) 

9b  CUN  T 1 NUE 
C 

PUI  POINT/  FRAVI  in  LuMMUNf  ALSU  AREA,  SIDt  tft  1 T M INTEGRATING  FACTORS 
C 

ARtA  = AREA*  (FLOAT  UNUDZ  ) -b  . b 1 /2 . 4 
SIDE  = S1DE*FLUA1 ILN0DZ-4 ) /4 . 0 
DO  9b  I = 1,3 

POINT  II)  = XYZDDll/l)  + ELXYZ1(9,I) 

DO  98  J = 1 , 3 
9b  FRAM(1,J)  = FRAMEll/J) 

RETURN 

C 

C***  aRIIE  DIAGNOSTIC  ERROR  MESSAGE, 

C 

99  AR 1 1 E t o , b99 ) NERRUR 

b99  FORMATC/bH  ERROR , 1 b , 1 8H  IN  SEGMENT  HALOUF) 

ARE A=-b9 . 

END 


358 


ooo  on  o on  non  non  non 


SUbkUUllNE  SFkULUCAL,  aCURN,  ALOOF,  N S T A G E , LNUDZ  ) 


***  SHAPE  FUwCUJN  SUbRUUdNE  lU  SEkvE  HALOOF, 


DIMENSluN  MD(A),  TtRMV(Ab),  ACURNdO,3),  aLOGF  ( 1 0 , 3 ) , XL0CAL(2) 
CUKMON/CUEF/CUEF  12a  7) 

GAIA  MU/8,  A3,  VO,  171/ 

U A I A TERMV  / Ab* 0 » / 

***  INITIALIZE  AND  PREPARE  10  CALCULATE  TERMV  = POLYNOMIAL  TERMS, 

XI  = XLUCAL(l) 

ETA  = XLUCAL12) 

WRlTElb,bOA)  XI,  ETA 

60 A FURMATI/5H  XI  = , F 1 S . 1 0 , bX , 5HE T A =,F15,10) 

I A = 2 

***  CREATE  POLYNOMIAL  TERMS  AND  XI,  ETA  DERIVATIVES. 


A 

b 


TERMV l 1 ) = 0.0 
TERMV (2)  = 1,0 
NZ  = (LNODZ+NST AGE-3) 
DO  b N = 1,  NZ 
IAN  = IA  ♦ N 
N2  = N ♦ 15 
N3  = N + 30 
DO  A J : I A , IAN 
TERMV l J + N)  = TERMV(J) 
TERMV ( J tN2 ) = TERMV ( J 
TERMV ( J+N3)  = TERMV(J 
IA  = IAN 

TERMV(lAtN)  = TERMVd 


/2 


*X1 

)*FLOAT (IAN-J) 

- 1 ) *FLOAT ( J- 1 A ) 

A- 1 ) *E  T A 


***  CREATE  SPECIAL  COMblNATIONS  FOR  LUOF  NODES,  ETC. 

DO  8 I = 8,  38,  15 
IF  ILNODZ.EO.b)  TERMV(I)  = 

1 2.0*lTERMV(I)-TERMVU+3))  + 3. 0*  ( I ERMV  ( 1 + 1 ) -T  ERMv  ( 1*2) ) 
IF  (LNUDZ  ,E0,8)  TERMVd)  = T ERMV  Ilf  2) 

IF  (LNUDZ. El), 8)  TERMVC1  + 2)  = TERMVd  + b) 

8 CONTINUE 


***  USE  TERMV  TO  FIND  aCURN  AND  ALOOF  AND  XI,  ETA  DERIVATIVES. 

NF01SZ  = (NSTAGE+lI/2 
DO  18  NF01S  = If  NFOISZ 
NZ  = (3*LNODZ)/2  + NF01S  - A 
IF(NZ.NE.IO)  GO  TO  12 
NZ  = 9 

DU  10  I = 10, AO, 15 
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r>  o d o 


10  1 t*MV l 1 ) = 1 ERMV  U + 3)  - I ERMV  U + b ) 

1 2 * = U 

UU  10  1 = 1 , 3 
UU  lb  N = 1,NZ 
b ASh  = 0,0 

MULL  = MDlLNODZ+NFUlS-b)  + N*NZ  - ISM 
MA  = 1 b* 1 - 1 « 

MZ  = 1SM+NZ-19 
DO  Id  M : MA,  MZ 

la  bASH  = bASH  ♦ TERMVIM)«LUEF IM+MDEL) 

IF (NFOIS.EU. 1 ) wCQRNlN+K, I)  ~ bASh 
IF  (NFUIS.EG.2)  ALU0F(N+K,1)  = bASn 
lb  CONTINUE. 

10  K = 1 

C *RlTE(b,bOb) 

CbOb  F0KMAH/1OH  rtCURN  AND  WLOOF/) 

DU  22  I = 1,3 

22  *RlTE(to,b08)  ( wCQKN l N , 1 ) , N = 1,LN0DZ+1) 

DO  2a  1 = 1,3 

2U  wRlTE(b,b08)  lWLUOF(N,l),  N = 1,LN0DZ+1) 

C608  FORMAT 11X,9F13. 10) 

RETURN 

C 

C***  ERROR  DIAGNOSTICS,  IF  POINT  LIES  OUTSIDE  ELEMENT, 

C 

99  wRITElb,blO)  xl,  E I A 

810  F URMAT ( / 30H  ERROR  11  IN  SEbMENl  SFR,  XI  = , F 1 S . 9, 3X , SHE  I A =,F1S.9J 
STOP 
END 
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O O 


BLOCK  data 


* * * 

* A * 


TU  INITIALIZE  COEFFICIENTS  F UK  CURNEK-MlDSlDE  A (Ml)  LOOF  VENSIUNS 
UF  UUAUKAUC  TK1ANOLE  AND  QUADRILATERAL  FOK  SUBROUTINE  SFK. 


DIMENSION  COEF  A 1 1 6b ) * CUEFB181) 

COMMON/CUEF/COEF 1247) 

EQUIVALENCE  ICUEFU),  CUEFA(l)),  1C  OEF  U 67  ) , COEFB  ( 1) ) 
DA  ] A COEFA/  l.,-3,,-3.,  2.,  4 . , 2.,  0,,  4.,  0, 


1 

2 

3 

a 

5 

b 

7 

b 

V 

1 

2 

3 

a 

5 

b 


• 1 • r 

2 • , 


0 , , 

0., 


2 . , 
0 • , 


0 , , 

4. , 


U i f 0 , , 0 , , 

0.,-4.,-4., 


0.,  0.,  4.,  0., 
0.91 0663603, 


0.,  0., 

o . , 0 . , - 1 . , 0 , , o . , 

1.5773502&9, 


-6.041451884,-6. 196152423 
-0 . 2441)  1 69  36 , 0 ,422649  7 31 
-4,928203230,-1 .732050808 
-1 .464101615,  5.000000000 
-2.577350269,-1 ,422b49 7 31 
-1.732050808,-0.244016936 
-4.464101615,  4,196152423 
1.577350269,  6,926203230 

— l»,6.,b.,— 6.,— 6,,— b.,0», 
.5,0.,-.5,-.5,0.,0.,0.,  ,5 
.5, .5,0,,0.,0,,-.5,-,5,0. 
.5,0., .5,-.5,0.,0.,0.,-.5 
,5, -.5, 0, ,0. , 0. ,-.5, .5, 0 
DA  1 A CUEFb/  0.000000000,  0 

1 0.210506351,  0,261250000 

2 -0,000000000,-0,216506351 

3 0.281250000,  0,649519053 

4 0.375000000,  0.216506351 

5 -0.375000000,-0,649519053 

6 — 0 » 2 1 o5 0 6 35 1 , 0,281250000 

7 0.649519053, 

6 -0.093750000, 

9 -0.324759526, 

1 -0.216506351, 

2 -0.000000000,-0. 375000000 

3 -0, 093750000,  0,375000000 

4 -0.375000000, 

5 


0,324759526 
0.21650&351 
0.000000000 
0,28  12^0  000 


2.464101615 
2,041451664 

0.333333333 

5.404101615 

5.464101615 
2,041451864 
1.732050607 

2.464101615 
•25,0.,0., ,2 
0.,-.25,0.,0 
0.,-.25,0.,0 
0 . , - . 25 , 0 , , 0 
,0., i.,o.,o, 
2 1 650635 1,-0 
-0,649519053 
-0.375000000 

0.375000000 

0.281250000 

-0,324759526 

0.216506351 

-0,000000000 

0,281250000 

0,216506351 

-0,649519053 

-0.216506351 

0,649519053 

0.281250000 


0,216506351 
.375, -.6495 19053, ,324759526,  1 . ,0.,0. ,- 
END 


8,928203230,  1.732050608, 
4.196152423,-4.464101615, 
-1.422649731,-2.577350269, 
1.732050608,  0.333333333, 

5.000000000, -1.464101615, 
0,422649731,-4,928203230, 
0.910683602,-6.041451664, 

-6.196152422,-1.732050807, 
,.25, .25, -.25, -.25,0., 

, ,25, -.25, .25, ,25,-.25,0., 
, .25, .25, ,25, ,25, .25,0., 
,.25, -.25, .25, -.25, .25,0., 
-l.,0.,-l.,0.,0.,l./ 
375000000,-0.093750000, 
0.375000000,-0.324759526, 
-0.093750000,-0.216506351, 
0.324759526,  0.000000000, 
-0.216506351,-0,093750000, 
0.000000000,  0.375000000, 
-0.093750000,-0.375000000, 
-0.216506351,  0.375000000, 
0.649519053,-0.375000000, 
0.375000000,-0.093750000, 
-0.375000000,  0.324759526, 
0.281250000,-0.216506351, 
-0.324759526,-0.000000000, 
0.216506351,-0.093750000, 

75.0. ,— .75,0., 0 , , 0 , / 
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SUtiKUU  I inL  VLLIUKIU,  V,  ft) 

C 

L * * * 1U  Lu^POlL  VtClUK  PKlJDUC  I U*V  1MU  AktA  ft. 
C 

DlMfclNSlUiN  Uli),  V(3),  ft  ( 3 ) 

K = 3 

DU  2 1 = 1,3 

ftlb-I-K)  = l)(K)*VU)  - U(1)*V(K) 

2 * = I 

Kt  1 UK  IN 
tlNl) 
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SubKUUliNt  SCALMKCU,  v , KkUDJ 


C 

(,***  TU  CUMPUIL  SLAlAk  PNUUUll  Uf-  VLL1UKS  U AND  V, 
C 

DIMENSION  U(3),  Vli) 

PKOD  = U.O 
D(J  d 1 = 1,3 

d PKUD  = PKUD  ♦ UlI)*Vll) 

KtTUKN 

END 
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SUbkUUllNE  LUFdLMIWLL,  LVAbZ,  SIDt,  tLXYZl,  F HAM, PU1 N I , KbEAM, 
. xl,  kUDEL,  NUiM,  LwUDZ,  LNUUb) 

L 

C***  rtklllEN  bY  b«uCt  IkUNS  AND  FEKNANDU  ALbUUUEkGUE 
C***  SWANSEA,  1/7/1973 
L 
C 

C***  TO  ERAJE  SNAPt  FUNGI  ION  ARRAY  nbtAM,  PUR  SEMlLOUF  BEAM  ELEMENT 
G 

LOGICAL  KNUrtFR 

DIMENSION  LNUDS(NUDEL,NEL) 

DIMENSION  ELXYZT (NOBEL, ND1M) 

DIMENSION  POINT  ( 3 ) , FkAM13,3),  KbEAM(13,4S) 

DIMENSIUn  FRAmE(3,3),  LNUPRE(o),  SHE  AR  ( 1 0 , d 1 ) , VLOUP(3,b) 
DIMENSION  *CORN(3,2),  KLOOFS,;?),  XlLOOFIS) 

DATA  XiLUOF  /- . 57 7 350269 , .5773S0269, 
d 774S9bbb92,  .7745966692,  0.0/,  LNOPRE/b*0/ 

C 

C***  GENERATE  NSTAGE 
G 

N ERROR  = 1 

1FCLVABZ  . NE.  17  .AND,  LVABZ  . NE , 19)  GO  TO  99 

IF l LVAbZ  ,EU.  17)  KONST  = 4 

1 F C LVAbZ  , E U , 19)  kONST  = 2 

NS T AGE  = 3 

DO  if  N = 1,  LNOOZ 

IF  ILNODS (N, NEL)  , NE , LNOPRE(N))  NSTAGE  = 1 

2 LNOPRElN)  = LNUUS ( N , NEL ) 

3 XLOGAL  = XI 

GO  TO  ( A,  99,  dm  , NSTAGE 
G 

C***  INITIALIZATION  ANU  diagnostics 

c 

4 DO  10  I=tf,3 
JJ  = 1-1 

DO  8 J = 1,  JJ 
N ERROR  = d 

1A  = lAbSCLNODSl 1 , NEL  ) ) 
lb  = IAriS(LNODS(J,NEL)) 

IP  1 1 A ,£U,  IB)  GO  10  99 
tt  CONTINUE 
io  cunt inue 
c 

C***  CHECK  THAI  V1IDS1DE  IS  NEAR  THE  Ml DLE  AND  THAT  ELEMENT  IS 
C NOT  TOO  CURVED 

C 

GASH  = 0.0 
GISH  = 0.0 
GUSH  = 0,0 
DU  Id  I = 1,3 
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GASH  s GASH  t IELXYZ113,I)  - ELXYZT12,1))a*2 
GISH  = GISH  4 (ELXYZ112,1)  -ELX YZT l 1 , 1 ) ) **2 
Id  GUSh  s GUSH  t ( ELX  Y Z 1 1 3 , 1 ) - 2 . 0 *EL X Y Z T ( 2 , I ) +ELXYZT  UdJjHi! 

C 

C***  CREATE  UNIT  BINORMAL  Z UU 1 OF  PLANE  OF  ECEPENT  = COL#  3 OF  FRAME 

c 

KNUwFRs, false. 

00  13  1=1,3 
FRAMEil, 1)=FRAM(1.1) 

13  KN0wFRsKn0wFR.0R,FRAM(1 . 1 ) .NE.O, 

UO  14  1 = 1,3 

IF  l .NUT.KNOwFR)  F R AME 1 1 , 1 ) =ELX YZ T ( 1 , 1 ) -2 . *ELX YZ T (2, 1 ) fELX Y ZT ( 3, 1 ) 

14  F R AME (1,2)  s ELXYZ1(3,1)  - ELXYZTll,l) 

C 

00  16  1 s 1.4 

IF  l .NO! .KNUrtFR)  F R AME 11 - 1 , 1 ) =FRAM£ l 1- 1 , 1 ) + 1 , 0 
CALL  VECTOR (FRA ME (1.1),  FRAME (1,2),  FRAME (1.3)) 

CALL  SCALAR  ( FRAMEil, 3).  FRAMEil, 3),  ZSQ) 

IF IZSU  ,G1 . 0.0)  GO  TO  16 
16  CONTINUE 

N ERROR  = b 
GO  TO  99 
18  00  20  1 = 1,3 

20  FRAMEil, 3)  = FRAME l 1 , 3) /SORT (ZSQ) 

C 

C**»  ORGANIZE  LOOP  AND  END  NODES  TO  CREATE  VLOOF  , THEN  SHEAR 
C 

21  NLUQF  s o 

22  NLOOF  s NLOOF  ♦ 1 
C 

C***  00  b6  NLOOF  s 1.2  IF  NS1 AGE=  1,  BUT  NLOOF  s 1,5  if  NS1AGE  = 2 

C 

XLOCAL  = X1LOOF  ( NLOOF  ) 

24  CALL  SFRllXLOCAL,  wCURN,  wLOOF ) 

C 

C * * * COMPLETE  FRAME  X IS  ALONG  TANGENT  TO  BEAM 
C 

00  28  1 S 1,3 
GASH  = 0,0 
00  26  N = 1,3 

26  GASH  s GASH  + ELXYZT IN, l)*wC0RN(N,2) 

28  FRAMEil, l)  = GASH 

CALL  SCALAR  ( FRAMEil, 1),  FRAMEil, 1),  SlUESQ) 

N ERROR=  6 

1FIS10ESQ  ,E0,  0.0)  GO  TO  99 
SIDE  = SUR I (SIDESU) 

00  30  I = 1,3 

30  FRAMEil, 1)  = FRAMEil,  D/SIDE 
C 

C * * * AND  UNI!  Y,  IN  COL  2 OF  FRAME,  IS  NORMAL  TO  BOTH 
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or',  o n n n r n r rn  ono  noo 


CALL  vtLFURl  FRAMtll,3)*  FKAMLll,  1),  FRAMEll*2)) 
ARlTElb*bOb)  l (F  RAME  l J,  1 ) * 1 = 1*3),  J = 1*3) 
bob  F URM  A T ( / a 4H  LULS  UF  FKAhE  ARE  UN  1 F LOCAL  CARTESIAN  AXES, 

1/  / 11 X,3F 13. 10) ) 

UO  TO  (.  31*  3a,  3U),  NSTAGt 

***  APPEND  FRAME  TO  VLUUF  * HENCE  ENDING  TASK  A 1 T H NST  AGE  = 1 

31  DO  32  1 = 1*3 
DU  32  J = 1*3 

32  VLOUF 11,3*INLUUF-1)+J)  = FRAMEII,J) 

GO  10  5b 

***  TRANSFORM  DERIVATIVES  OF  WCORN  AND  ALOOF  IN  XIL00F 
3a  DO  3b  N = 1*3 

36  ACURNlN,2)  = ACORN ( N , 2 ) /S IDE 

wRIlECb*bl2) 

612  F ORMA  F ( / 1 6H  ACORN  AND  ALOOF/) 

DO  3/  1 = 1*2 

37  wRITElb,bia)  (wC0RN(N,l),  N =1,3) 
bia  FUKMATUX,  U F 13.10) 

DU  3b  N = i*a 

3b  rtLUUF(iM,2)  = aLUUF IN,2)/SIDE 
DU  39  1 = 1,2 

39  wRITE(b,bia)  (ALUUF  ( N * 1 ) * N = l*a) 

C * * * INITIALISE  ABEAM  10  ZERU 
C 

DO  ao  I = 1*12 
uu  au  J = l*2a 
ao  aBEam  ( l * J ) = 0.0 
C 

Cm*  INTRODUCE  TERMS  FOR  DISPLACEMENT  INTO  COL  1 TO  11  OF  ABEAM 
C 

DU  92  NOD  = 1*3 

Du  a2  IUVA  = 1*3 

KOL  = 3*  C NOD" 1 ) t IUVA 

IF  C NOD  ,EU.  3)  KOC  = KUL+2 

ABEAM  (IUVA, KOL ) = aCURN(NOD*1) 

aBE  AM ( a , KOL ) = aC0RN(N0D*2)*FRAME(1UVa,  1 ) 

DU  a2  NSHEAR  =1*2 

a2  aBEAM(NSHEAR*10,KUL)  = ACORN ( NUD , 2 ) *F R AME ( 1 U V A , NSHE ARf  1 ) 

C 

c***  introduce  rotation  terms  inio  abeam 
c 

DO  ab  NOD  = l*a 
du  ab  Iuva  = 1*3 
KOL  = 3*NUD+ lUVA+b 
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MJL+1 


If-  l NUD  ,Gt . 3 ) MJL  = 

00  l All  - 1,3 
«4  nbtAMUM^«,kULJ  = ALUUF(N00,1)  * F R AMt  ( 1 0 V A , I X Y l ) 
AbtAM(6,A0L)  = ALOUF  l NUU  ,2)*FkAML  (lUVA,3) 

AbtAMOV,  MJL  ) = -ALOUF lNU0,2)*FKAMtllUVA,2) 

AbtAMl 10,K0L)  = ALOOF (NOD, 2)*FRAMtlluVA,  1) 

AbtAM( 1 1 , KOL)  =- ALOOF (NOD, 1 )*FRAMt ( 1UVA, 3) 

4b  Abt AM ( 12,  KOL ) = ALOOF  (NOD#  1 ) *FKAME  ( 1UVA,  2) 

C 

C***  CrEaTE  LOCAL  KOI  AT  ION  1 tKMS  IN  BEAM  F OK  NSTAGE  = 2 
C 

DO  bl  NOD  = 3,4 

UO  bl  1 = 1 , 3 

IF  (1  ,EU.  1)  KOI  = NOO  + 4 

I F ( 1 .GT,  1)  KOL  = 2*NODU  + 10 

00  bl  NKOA  =1,12 

GASH  = U,U 

00  bo  J = 1,5 

bO  GASh  = GASH  t Abt AM ( NKOa , 3*N00+  J + 9 ) * VLOOF ( J , 3*  ( NOO-3 ) 1 1 ) 
bl  AbtAMlNKUA, KOL)  = GASH 

C WR1 TE(b, bl 7)  IN,  ( A bt  AM ( K , N ) , K = 1,12),  N = 1,24) 

C b 1 7 FOKMAT l / 1 5H  AbEAM  0KIGINAL/9X, 1HU,BX, 1HV,6X,  1HA, 

C 1 8X,2HOS,7X,4HKOTX,bX,4HROr),bX,4HKOTZ, 

C 2 3X,bHCORVXY,3X,bHCUKVXZ,2X,7HIOKCURV,4X,SHSHtXY,4X,bHSHEXZ  , 

C 3 /(I4,l 2F9,b)) 

GO  10  C 99, S3, 70),  NS  1 AGE 
C 

C * * * IN1K000CE  THE  BENDING  CURVATURES  INTO  SHEAR 
C 

53  00  54  KOL  = 1,21 
00  54  IYZ  = 1,2 

54  SHEAR ( 2* NLOOF UVZ»2, KOL)  = aBEAM ( 1 04  I r l , KOL ) 

C***  COMPLETE  LOOP  FOR  NLOOF  , A I T H NSTAGt  : 1 OR  2 
C 

5b  1 F ( NLOOF  ,LT.  2)  GO  TO  22 
NS  1 AGE  = NSTAGt  + 1 
IF (NSTAGE  . EQ . 2)  GO  10  21 
C AKITt(b,blb) 

C bid  F0KMATU4H  INITIAL  SHEAR) 

C 00  57  N = 1,21 

C 57  WRlTE(b,b20)  N,  l SHE AR 1 1 , N)  , 1 = 1,B) 

C b20  FORMAT (14  ,10F10.b) 

C 

C***  FINALIZE  THE  MATRIX  SHEAR  , IN  FIRST  FOUR  KOAS 

C 

DO  56  KOL  = 1,12 

00  58  IYZ  = 1 , 2 

SHtARU  YZ,KOL)  = SHE  AR  ( I Y Z , KOL ) 

58  SHtARU  YZ  + 2,K0L)  = SHEAR  (I  Y Z + 2,  KOL ) 

C WRlTt(b,bl9) 
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C blV  FORM Allien  P 1 ixAL  SHtAK) 

L LMJ  bV  N = 1,21 

C b9  rtki  It  10/ b2G  ) N , lSHtAKll,N),  I = 1,10) 

C 

L * * * CHOUSE.  PlVUT  PUR  REDUCING  ARRAY  SHEAR  And  DO  RUh  INTERCHANGE 
C 

DU  bb  L1M  s 1 , K ONS  1 
KP  = LVAdZ  + L1M 
P1VU1  = 0.0 
DU  bO  L = L1M,KUNST 

IP UbSlPlVUT)  .GT  , ABS(SHtAklL*KP)) ) GU  TO  bO 
Lb  1 G = L 

PlVUT  = ShE  AR  lLblG,KP) 
bG  CUNT  1 NU  t 

DO  bl  K s 1 ,21 
LHANGt  = ShtARCLblGfK) 

SHtAK (LblG, K ) = SHt  AR ( L I M, K ) 
bl  SHEAR(L1M,K)  = ChANGt/PlVUT 
C 

L*»*  REDUCE  ARRAY  SHEAR  TU  CRtATt  CURST  R A I NT  MATRIX 
C 

DO  b<i  NRU*  = 1,  KONST 
PACT  = SHEAk(NRUw, KP) 

1PCNRUW  . tU  , LIM  ,UR,  FACT  ,EU.  0.0)  GO  TO  b« 

DU  62  KUL  = 1,21 

b2  SHEAR(NRUn, KOL)  = SHE AR  l NROw , KUL ) - P AC T * SHt AR ( L 1 M, KOL ) 
b«  CUNT 1NUE 
bb  CUNTlNUt 
C flRITElb,b21) 

C b2 1 F URMA I C/22H  SHtAK  AFTER  REDUCTlUN) 

C DU  b7  N = 1,21 

C b7  «yR  1 I E ( b , b23 ) N,  ( SHE  AR  ( I , N)  , I = 1, KONST) 

C 623  FORMAT  (la,aFl0.6) 

GO  TU  3 
C 

C * * * USE  ARRAY  SHEAR  TU  CUNSIRAIN  *BtAM  AT  THE  GIVEN  POINT  XI 
C 

70  DU  7a  I = 1 , LVABZ 
DO  7a  J = 1,12 
GASH  s WBE A M ( J , 1 ) 

DO  72  K = 1 , K0NS1 

72  GASH  = GASH  - *BE AM ( J , K+L V ABZ ) *SHE AR ( K , 1 ) 

7a  rtbt AM l J , 1 ) = GASH 
C *RITtl6,622) 

C 622  F ORMAT ( / 1 BH  wbt  Am  CONSTRAINED) 

C 

C***  INTRODUCE  SIGN  CONVENTION  FOR  LOOF  ROTATIONS 
C 

IA  = IABS(LNODS(3,NEL) ) 

IB  = 1ABS(LN0DS(1,NEL)) 
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oooooooo 


lUi  A .01  , lb)  oU  TU  77 
DU  7b  J = 1 , 12 
CHANGt  = rtbt AM  C J > 7 ) 
wot  AM l J , 7 ) = -wbtAM(j,B) 

7b  rtbEAM(J,B)  = -CHANGt 
WK1  I E 16/  b26) 

02b  FORMAT l/l«H  WBtAM  SwOPPED) 

DU  7b  N = 1,IVABZ 

7b  WRITE  (b*b24)  N,  (wBEAM( J,N) , J=  1,12) 
b24  FORMAT (19, 12F9. 5) 

***  COMPUTE  POINT  , AND  PASS  FRAME  1NTU  PRAM  IN  COMMON 

77  DU  80  1 = 1,3 
GASH  = 0,0 
DO  7tt  J = 1,3 

GASH  = GASH  + WC0RNIJ,1)  * El_XYZT(J,l) 

7 B PRAM(1,J)  = F RAMt 1 1 , J ) 

60  POINT(I)  = GASH 
RETURN 

99  WRITE  (b, 699)  NERKUR 

699  F URMAT ( / 7H 1 ERROR, lb, 16H  IN  StGMtNl  LOFBEM) 
S10t=-b9, 

END 
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SUdKUUllwt  bLdi^  1 ( XI,  V ) 

L 

L***  KUUllNt  blvLS  JUAUkAlil  1 N T E KkuL A I 1 UN  MJNL110NS  IN  XI, 


blMLNSlUN 
b = XI 

P l 3 ) 

Pin  = .b 

A Q A 

l-l. 

♦ b ) 

P(2)  = 1, 

• b A 

b 

P 1 3 ) = ,b 
KE1UKN 

End 

A ^ A 

i 1, 

♦ b ) 
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SUbRUU 1 1 ixt  Sf-Kllxl,  wCUKN,  WLUUF ) 
t 

C***  ShAPt  FUixC  f ltl\l  SUbnOUT  1 NE  lU  SERVt  LUFbtM 

DlMEwSlUN  C0EF(5t>),  TtRMvi9),  nCU Rn(3,2),  wLCUF(9,2) 

C 

C 

C***  DtFlNt  COEFFICIENTS  FOR  SHAPE  FUNCTIONS  AnD  DER1VAT  1 VtS 
C 

UATA  COEF  / 0.,  -.5,  .5,  0., 


1 1 

. , 

0., 

•If# 

0 0 f 

2 

0 , < 

- .5, 

- .5, 

Ot# 

3- 

.5, 

’ l.i 

- 0,, 

u.f 

90 

5. 

5, 

It# 

0 » , 0 

• # 

6 

-o, 

,2^>, 

0.25, 

0,75,  -0 , 

,75, 

7 

-o, 

,25, 

-0.25 

, 0.75,  0, 

,75, 

8. 

75, 

- -1, 

,2990381,  -.75, 

1,299038, 

9.75,  1.2990381,  -.75,  -1.2990381, 

1 0,25,  1.5,  -2.25,  0.0, 

2 -0.25,  1.5,  2.25,  0,0, 

3-1.2990381,  -1.5,  3.8971193,  0., 

91.2990381,  -1.5,  -3.8971193,  0./  , TERMV ( 1 ) / 1 , 0/ 

c 

(,***  DIAGNOSTICS  AND  CRE A | E POWERS  OF  XI  = XLQCAL 

OOO  FORMA! (/9H  XLOCAL  =,  F12,t>) 
wRllE(8,b00)  XI 

IF  (Xl.LT.-l .0  .OR.  XI  ,GT,  1,0)  GO  TO  99 
DO  2 1 = 1,3 

2 TERMV ( I + 1 ) = TERMy ( I ) *XI 
C 

C***  CREATE  wCORN  wITH  XI  DERIVATIVES 
C 

DO  10  1D1F  = 1,2 

DO  8 NOD  = 1,3 

IDEL  = 1 2* 1 DI F + 9*N0D  - 16 

GASri  = 0.0 

DO  9 I = 1,3 

9 GASH  = GASHt TERMV ( 1 ) *COEF  Cl  + lDtL) 

6 rtCORN(NOD, IDIF ) = GASH 
C 

C***  CREATE  wLOOF  WITH  XI  DERIVATIVES 
C 

DO  10  NOD  = 1,9 
IDEL  = 16*1D1F+9*N0D*9 

GASH  = 0,0 

DO  8 1 =1,9 

8 GASH  = GASH  + TERMV ( I ) *COEF ( I ♦ IDEL ) 

10  WLOOP (NOD, ID1F)  = GASH 
RETURN 


371 


LKKUH  Ul  AGNJS  I lLJs 


L 

L * * * 

L 

VH  AH  1 1 L lb, OU2) 

bl)2  FUHMAIliaHlLHKUH  IN  ShK,  XI  lb  OUTSIDE  HANGt) 
END 


372 


o o o o o 


B. 4 POSTLOOF  LISTING 


*DECK  PUSTLUU 

PROGRAM  POSTLOUlUT2#LSTRES# lNPUl # OUTPUT # 1 APE3# 

TAPEl=LSTRES,T APE2=U12#  TAPE5  = lNPUT#  TAP£6  = 0UTPUT) 

PROGRAM  TO  RECOVER  STRESSES  FUR  SEMI-LOUF  SMELL  AND  BEAM 
ELEMENTS  USING  NASTRAN,  semi-loof  PRE-PROCESSUR  IS  THE 
companion  program 

COMMON/N/NUMNP#NShELL#NBEAM,NSHLTY#NBMTY# NGAUS 
C COMMON  Ain 

COMMUN  A ( 20  00  0 ) 

DIMENSION  TITLE (8) 

REMIND  1 
REMIND  2 

READ ( 1 ) TITLE# NUMnP, NSHELL#  NSHLT  Y # NBE AM#  NbMT  Y # NGAUS 
CALL  DAI E C DA ) 

CALL  TIME(TI) 

NINDEX=I 

NU=NlNDEX+9*NSHELL+ 1 

CALL  1N41NI(2#NCULS#NRURS#NFORM,NTYPE#0# 1) 

NLNODS=NU*NROwS 

NNP=NLNODS+ 1 0*NSHELL 

NNSEL5NLNUDS  + NSHLT  Y 

NL AST =NNSEL+ NSHELL 

CALL  RFLINLAS1) 

CALL  IN1T 1 AtNlNDEXJ  # A(NLNUDS)# A(NNP) # A(NNSEL) J 
DU  20  1=1#NCULS 

CALL  1N4COLU,  A(NU)  # NCULS# NROwS#  11#NF  1N,nERR#  0) 

20  CALL  STRESS(TI1LE#DA#T1#1#A(NU)#A(NLN0DS)#A(NNP)) 

END 

*DECK  INIT 

SUBROUTINE  INIT ( INDEX, LNODS# NP) 

DIMENSION  INDEX (l)#LNODS( 10# 1)#NP(1) 
COMMON/N/NUPNP#NSHELL#NBE AM# NSHLT Y# NBMT Y, NGAUS 
COMMON/BLOCK/BLUCK(790J 
1 CALL  UPENMS13#INDEX#9*NSHLTY+1#0I 

READ(l)  l(LNODS(J#I)#J=l# 1 0 )# 1 = 1 # NSHELL ) 

DU  10  1=1#NSHLTY 
READll)  LT  # NP (LT ) 

NPP=NPILT) 

DU  10  J=1#NPP 
READ(l)  BLOCK 

10  CALL  «RllMSli#BLOCK# 790 # 9 *L T t J-9 ) 

READ(l)  ULNUDS(J#1 J# J= 1 # 1 0 )# I = 1 # NSHELL) 

RE  1 URN 
END 
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*l)tC*  STRESS 

SUBKUU1 lNt  STKtSS(TlTLt,DAlt, TIMt, 1C ASE , U, LNUDS , NP ) 

DIMENSION  U(1),LNUDS(10,  1),NP(1) 

DIMENSION  TllLt(61 

CUMMUN/BLUCK/STRESM(b, 32), i*SHtL(  1 3 , 4S ) , PU1 NT  ( 3 ) ,FRAM(3,3)  / T H I K 
CUMHUN/N/NUMmP,  NShELL,  Not  AM,  NSHLT  Y , NBMT  Y 
DlMtNSIUN  tLDISP l 32), S( 3, b),FF (6) 

DIMENSION  lSh(b,6) 

BA  1 A ISM/1,2,4,0/0/0/ 

• 4/b,b, 7,6,0, 

• 9,10/11/0/0/0/ 

. 12/ 13/ 14, lb/ lb/ 0/ 

. 17/ lb, 19/0/0,0, 

• 20,21 ,22/24,29, 0, 

• 25,2b/27, 0,0,0, 

. 26/29/30,41,32/0/ 

l)A  1 A PI/3. 14  1S927/ 

IK  (NSHELL, EU.0)  GO  10  3u0 

SHtLL  LLtMtNTS 


1 J = 0 

DO  200  1=1, NSHELL 

GET  ELEMENT  DISPLACEMENTS 

DU  1 IS  J = 1 , 6 
L = LNUDS ( J + 2 / n 
IK  (L.tU.0)  GO  TO  11S 
DU  110  N=l,b 
MDUF  =0  * ( L - 1 ) t K 
LOOK  = 1 SH ( K , J ) 

IF  (LDUF.IMt.01  ELD1SP(LDUF )=U(MDUK ) 

110  CONTINUE 

11S  CONTINUE 

LOUP  ON  GAUSS  PUINTS 

NGAUS=NP(LNUDS(2, 1 ) ) 

DU  170  J=1,NGAUS 

CALL  READMS(3,STRESM, 790 , 9 * LNUDS ( 2 , I ) ♦ J-9 ) 

1J=1J+1 

GtT  b KLRCt  RESULTANTS  IN  LOCAL  COORD 
DU  120  K=l,b 

120  CALL  SCPRUD(32/b/l,STRtSM(K/l)/ELDlSP/FF(K)l 

LOUP  UN  l~ H/2,  0,  -H/2  FUR  COMBINED  BENDING-STRETCHING 
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Z=  1 h 1 K / 2 
T3=ThlK**3 
Du  iao  ksi,3 

GET  SX , SY,  7 X Y 

UU  13U  L = 1 » 3 

130  SlK,L)=FFlL)/1HlKfFF(L*3)*12*Z/I3 

GET  PRINCIPAL  STRESSES 

SSstSIK#  U+SIK,2)  )/2, 

U5(S(K,l)-S(K,2))/2. 

RR  = SUR  T ITT*T1*S(K,3)**2) 

S(K,q)=SS*RR 

S(*,5)=SS-RR 

S(Kf6)*0) 

IF  (S(K, 3) .NE.O, .OR.TT ,NE.O, ) 

. S(K, 6 )=0,5*A1 AN21-SIK, 3) , 7 T )* 180/PI 

190  Z=Z-THlK/2 

IF  (MUD (lJrb)tEU»l) 

, nRITEtb, 150)  UTLE,1CASE, DATE, TIME 

150  F0RMA7  (28H1SEM1-L00F  STRESS  RECOVER Y // 1 X , 6 A 1 0/ 

. T100,9HCASE, 13, 212X, A10 )// 

. 8H  ELEMENT, T12,BHLGCAI10N,T31,11HLUCAL  X/Y/Z,T55, 

. 23H**  FURCt  RtSULTANTS  **,190, 

, «0H**  STRESSES  SX/SY/7 X Y /SMAX/SM 1 N/ ANGLE  **/ 

. T55, 9FlFX/FY/FXY,lb9,9hMX/MY/'MXY, 7 91 , 3MT0P,  T105, 6RM1DDLE, 

. T 1 20 , bHOOT  T UM) 

rtRlTElo, lbO)  I, POINT (1 ) , (FRAM(K, 1 ) , K= 1 , 3 ) , FF ( 1 ) , FF ( a) , 

. (S(R, 1),K=1,3) 

IbO  FuRM A I (/lS,7l0,2HX=,El0.4,l2b,3HX  = (,3F7.4#lH), 

. 7 53, E 1 2.b, t 68, El2f 6, T 8$, JEl 5, 6) 

WR I TE ( 6 , lbl)  PU1N7(2),(FRAM(K,2),K=1,3),FF(2),FF(5), 
t (S(K,2),K=1,3) 

lbl  FURMAT  (T  10,2HY  = ,E10«9, 726,3FTY  = (,3F7.9,  1H), 

. T53,El2.b,T66,El2.6,T85,3E15,6) 

*RlTE(b, 162)  P0lNT(3),(FRAM(K,3),K=l,3),FF(3),FF(6), 

. ( S ( K , 3 ) , K= 1 , 3 ) 

lb2  FURMAT  ( T 1 0 , 2HZ  = , E 1 0 ,9 , T2b , 3HZ  = ( , 3F 7 . 9 , 1 H) , 

. T53,El2.b, l68,E12.6,T85,3E15.6) 

WRITE (6, 163)  ((S(L,K),L=l,3),K=9,b) 

163  FORMAT  (2(1BS,3E15.6/),TB2,3F15.2) 

170  CONTINUE 

200  CONTINUE 
300  RETURN 
END 
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APPENDIX  C 

DETAILED  DESCRIPTION  OF  SOFTWARE  USED  IN 
STATISTICAL  ENERGY  ANALYSIS  EXPERIMENT 


C.l  GENERAL 

The  experimental  investigation  of  the  wave  transmission 
method  for  implementing  an  SEA  model  was  carried  out  using  a 
minicomputer-based  data  analysis  system.  The  computer  and 
peripheral  A/D  converters  replace  a rather  large  amount  of 
special-purpose  analog  gear  which  would  otherwise  be  required 
and  at  the  same  time  allow  much  greater  flexibility  in  data 
analysis.  However,  to  fully  explain  the  procedure,  some 
description  of  the  software  is  needed.  This  description,  along 
with  source  code  listings,  is  provided  in  this  appendix.  It 
should  be  noted  that  the  group  of  programs,  while  quite  easy 
to  use,  does  not  represent  a finished  product.  It  is  presented 
simply  as  the  least  ambiguous  way  of  describing  the  experimental 
data  processing. 

The  programs  are  written  in  Time  Series  Language  (TSL),  a 
proprietory  language  developed  by  Time/Data  Division  of  Genrad. 

A working  familiarity  with  the  language,  with  standard  vendor- 
supplied  subroutines  and  with  the  DEC  RT-11  operating  system, 
is  assumed.  As  written,  the  programs  run  on  a Time/Data  Model 
TDA-25  system  and  require  a cartridge  disc  peripheral  (DEC  model 
RKO 5 or  equivalent)  and  Tektronix  4000  series  CRT  terminal. 

In  the  next  section  a brief  functional  description  of  each 
subroutine  is  given.  Following  that,  a list  of  the  subroutine 
groups  which  make  up  each  load  module  is  given  along  with  the 
required  subroutine  call  formats.  Finally,  source  listings  are 
given  for  all  TSL  subroutines.  No  listing  for  vendor-supplied 
machine  language  routines  are  given  since  these  are  not  normally 
available  to  the  user. 
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C . 2 SUBROUTINE  DESCRIPTIONS 

The  total  program  package  is  too  large  to  fit  in  memory 
at  one  time.  It  is  divided  into  groups  of  subroutines  which 
are  loaded  and  run  as  needed  for  various  tasks.  Since  the  TSL 
interpreter  does  not  allow  automatic  handling  of  overlays,  the 
groups  must  be  loaded  under  manual  control  from  the  keyboard. 

In  this  section  each  subroutine  is  described  individually. 

Subroutine  Name:  ADSET 

Description:  Vendor-supplied  machine  language  driver  for  A/D 

converters.  In  the  current  application  it  is  accessed  only 
through  other  vendor- supplied  TSL  subroutines  which  provide  a 
simple  operator  interface. 

Subroutine  Name(s):  SETADS,  SETUP,  PARAM,  10,  IOALL 
Description:  Standard  subroutines  from  the  vendor-supplied  TSL 

applications  library  which  set,  retrieve,  store,  and  list  all 
control  parameters  for  the  A/D  peripheral.  They  are  described 
in  the  TSL  user  manual  for  TDA-25  systems. 

Subroutine  Name:  RTIO 

Description:  Vendor-supplied  machine  language  subroutine  to 

allow  storage  and  retrieval  of  data  on  the  system  disc.  It  is 
described  in  the  vendors  application  note. 

Subroutine  Name:  DISPLY 

Description:  Vendor-supplied  machine  language  routine  to 

provide  graphical  display  of  data.  It  is  described  in  the  TSL 
manual. 

Subroutine  Name:  CPHASE 

Description:  Vendor-supplied  machine  language  subroutine  which 

performs  linear  phase  correction  on  cross-spectral  density 
functions.  It  is  used  to  compensate  for  non-simultaneous 
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sampling  of  the  multiplexed  analog  signals  and  is  described  in 
the  TDA-25  system  documentation. 


Subroutine  Name:  TRAN1 

Description:  Computes  mobility  function  from  acceleration 

signal  on  channel  2 and  force  signal  on  channel  1.  Uses  setup 
conditions  previously  stored  under  subroutine  SETUP.  Prompts 
operator  for  channel  scale  factors  EU^  and  EUg  in  engineering 
units  per  volt  and  returns  the  mobility  function  in  consistent 
engineering  units  (CEU's).  Simultaneously  computes  coherence 
and  channel  1 autopower  spectral  density. 

Subroutine  Name:  N0RM1 

Description:  Called  by  TRAN1  to  provide  proper  normalization 

of  mobility  (EU.-SEC/EUn) , coherence  (nondimensional ) , and 

A D 

2 

channel  1 autopower  (EU^/Hz.). 

Subroutine  Name:  CLF 

Description:  Computes  coupling  loss  factor  by  the  wave 

transmission  formula: 


1 


ha  * hb  + Hc 


where 


complex  coupling  point  mobilities  of  bodies 
A and  B previously  measured  under  TRAN1, 
frequency-averaged  under  AVGRB,  and  stored 
on  disc. 


m.  = mass  of  body  A 
A 


kc  = coupling  stiffness 


i = /-T 


f 


c 


center  frequency  of  averaging  band 
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Subroutine  Name:  CLFD 

Description:  Computes  coupling  loss  factor  by  the  same  wave 

transmission  formula  as  does  CLF  except  that  a direct  connection 
between  bodies  A and  B is  assumed.  This  implies  kc  = 00  and 


Subroutine  Name:  AVGRB 

Description:  Performs  a running  average  on  a real  or  complex 

TSL  block.  When  used  on  a complex  block,  the  real  and  imaginary 
parts  are  smoothed  separately.  Averaging  window  width  is 
specified  in  the  call  but  must  be  1/2  times  the  width  of  the 
block.  The  value  deposited  in  the  destination  block  at  a 
particular  discrete  frequency  fc  is  an  approximation  to 


H(f  ) = 
c Af 


f -££ 
c 2 


H(f)  df 


The  approximation  comes  about  from  the  fact  that  H(f)  is 
obtained  by  measurement  using  discrete  Fourier  transform  methods 
and  is  therefore  known  only  as  a discrete  frequency  series 
approximation  to  the  true  continuous  function.  The  definite 
integration  is  approximated  by  a finite  sum  over  a portion  of 
the  series. 


Subroutine  Name:  DISPL2 

Description:  Displays  unaveraged  and  averaged  functions  on  the 

same  plot  scale  as  dotted  and  solid  lines,  respectively. 


Subroutine  Name:  EBEA 

Description:  Computes  predicted  ratio  of  smoothed  energy  spectral 

densities  EA(fc)/EB(f)  from  data  files  for  a)nAB  and  wnB 
previously  computed  and  stored  on  disc.  Uses  the  formula 


W . 
W 


urn 


AB 

~rr 


i»nn  + id  ^ n 


B w N„  "AB 
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Subroutine  Name:  PTRAN 

Description:  Computes  transmitted  power  from  force  and  accel- 

eration signals  at  coupling  point.  Requests  scale  factors  EU^ 
and  EUd  for  channels  A and  B in  engineering  units  per  volt. 

D 

Expects  force  signal  on  channel  A and  returns  the  spectral 
density  of  transmitted  power  in  (EU^  " - sec/^z.). 

Subroutine  Name:  LVXPS 

Description:  Called  by  PTRAN  to  compute  the  complex  cross  power 

spectral  density  between  velocity  and  force  by  using  signals 
proportional  to  acceleration  and  force. 

Subroutine  Name:  N0RM3 

Description:  Called  by  LVXPS  to  normalize  the  discrete  cross 

power  spectrum  to  account  for  channel  scale  factors,  record 
length,  number  of  records  per  ensemble,  and  double-sided  DFT . 

Subroutine  Name:  ENERGY 

Description:  Computes  and  stores  a file  of  velocity  power 

spectral  densities  and  mass  weighting  coefficients  which  are 
later  used  by  routine  EADD  to  compute  the  total  energy  of  a 
vibrating  structure.  Uses  signals  proportional  to  acceleration 
and  computes  for  two  points  at  a time.  Prompts  operator  for 
channel  scale  factors  and  accelerometer  locations. 

Subroutine  Name:  PSDV2 

Description:  Called  repeatedly  by  ENERGY  to  compute  velocity 

power  spectral  density. 

Subroutine  Name:  N0RM2 

Description:  Called  by  PSDV2  to  normalize  velocity  PSD  to 

o 

single-sided  (EU  - SEC)  / Hz.  EU  represents  a scale  factor  in 
acceleration  engineering  units  per  volt  for  channel  A or  B as 
previously  input  under  prompt  from  ENERGY. 
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Subroutine  Name:  EADD 

Description:  Uses  an  RTIO  file  of  velocity  PSD's  previously 

stored  by  ENERGY  to  compute  the  energy  spectral  density  for  a 
component . Mass  weighting  coefficients  are  stored  as  the  zero 
frequency  entries  of  the  velocity  PSD's. 
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C . 3 CALLING  FORMATS 


In  this  section  the  call  formats  are  given  for  the  var- 
ious subroutines.  The  sequence  in  which  they  are  presented 
represents  a typical  acquisition  and  processing  run  as  des- 
cribed in  section  3.4.3.  It  will  be  assumed  that  the  system 
of  units  being  used  is  force,  length,  and  time  in  lbf . , inches, 

and  seconds.  Consistent  units  for  acceleration  and  force 

2 

scale  factors  are  thus  (in/sec  )/volt  and  lbf/volt.  In  the 
following,  prompts  from  computer  are  underlined  and  operator 
inputs  are  in  capital  letters.  It  is  assumed  that  step  1 of 
the  procedure  is  complete  and  that  the  RT-11  monitor  and  TSL 
interpreter  are  loaded  and  running.  Storage  of  data  is  assumed 
to  be  done  manually  under  calls  to  the  subroutines  of  RTIO 
except  for  the  multiple  velocity  PSD’s  measured  in  step  3 of 
section  3.4.3  which  are  stored  under  program  control.  RTIO 
usage  is  a standard  TSL  operation  and  will  not  be  described 
further.  Optional  subroutine  arguments  are  indicated  by 
brackets.  RT-11  file  names  and  other  text  strings  are  en- 
closed in  single  quotes.  All  functions  except  point  velocity 
PSD's  are  most  conveniently  stored  in  individual  RT-11  files. 

The  description  begins  at  srep  2 of  section  3.4.3. 


CALL 


EXPLANATION 


>LOAD ' PTRANL 1 


Loads  all  required  subroutines 
for  measuring  transmitted  power. 


2SETUP 


Initiates  a quest ion-and-answer 
session  to  establish  data  acqui- 
sition conditions. 


>PTRAN 


Starts  program  to  measure  the  spectral 
density  of  transmitted  power. 


382 


INPUT  FORCE  (CH  A)  CEU/V 

Operator  connects  force  signal 
to  channel  A input  and  responds 
with  scale  factor  and  carriage 
return  (CR). 

INPUT  ACCEL  (CH  B)  CEU/V 

Operator  responds  similarly  for 

acceleration  channel. 

The  spectral  density  of  transmitted  power  is  then  mea- 
sured, placed  in  a real  floating  point  block  B8 , displayed  on 
the  system  CRT,  and  control  is  returned  to  the  operator.  He 
may  inspect  and  store  the  function  as  desired. 

>CLEAR 


>L0AD  ' NRGL' 

Load  all  subroutines  needed  to 

measure  component  energy. 

>SETUP 

Establish  A/D  conditions. 

^ENERGY  'E^  Filename',  'text',  recnum,  mass  [,'N'] 


'E^  Filename' 

RT-11  file  for  storage  of  velocity 
PSD's  at  various  points  on  the 

structure.  Point  number  is  used 

as  file  record  number. 

' text ' 

Descriptive  text  string  for  E^  file 

recnum 

Total  number  of  desired  records 

(new  file)  or  next  record  to  be 
filled  (existing  file). 

mass 

Mass  coefficient  to  be  stored  with 

each  velocity  PSD.  This  version  of 

the  software  assumes  the  same  mass 

is  associated  with  each  point. 
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' N * 

CH  A EU/VOLT 
CH  B EU/VOLT 


CH  A TO  POINT  1 
CH  B TO  POINT  2 


> CLEAR 

>LOAD  1 EADDL' 

>EADD  'E^  Filename' 
*E^  Filename' 

firstrec 

lastrec 


Denotes  new  file.  Omit  to  resume 
filling  an  existing  file. 

Operator  inputs  accelerometer  scale 
factors  for  channels  A and  B each 
terminated  by  (CR). 

Operator  mounts  accelerometers  and 
initiates  measurement  with  (CR). 
Machine  measures  velocity  PSD's, 
displays  them,  stores  them  in 
appropriate  file  records  if  ok'ed  by 
the  operator,  and  issues  prompts  to 
move  accelerometers  to  the  next  two 
points . 


Loads  subroutines  to  compute  smoothed 
spectral  density  of  component  energy 
from  point  velocity  PSD's  and  mass 
coefficients  stored  under  ENERGY. 

firstrec,  lastrec 

File  of  point  velocity  PSD's  and  mass 
coefficients  previously  created  under 
ENERGY . 

Point  number  of  first  velocity  PSD  to 
be  included  in  mass  weighted  sum. 

Point  number  of  last  velocity  PSD 
to  be  included  in  mass  weighted  sum. 
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Subroutine  EADD  will  compute  the  spectral  density  of  the 
total  component  energy  as  a mass-weighted  sum  of  the  point 
velocity  PSD's  and  place  it  in  real  floating  point  block  B8. 
The  function  is  next  frequency  averaged. 

>AVGRB  B8  , B9  , avgfct 


B8 

Source  block  to  be  frequency 
averaged,  in  this  case  B8. 

B9 

Destination  block  where  frequency 
averaged  function  is  placed. 

avgfct 

Desired  ratio  of  maximum  DFT 

analysis  frequency  to  averaging 

bandwidth . 

The  smoothed  and  unsmoothed  component  energy  function 
may  now  be  inspected  and  stored  as  desired  under  manual  control 
This  completes  step  3 of  section  3.4.3. 

The  structures  are  next  uncoupled  and  the  shaker  and  trans 
ducing  equipment  rearranged  to  measure  the  admittance  at  the 
coupling  point  to  body  B. 

> CLEAR 


>L0AD  ' HZACQL' 

Loads  all  subroutines  required  for 
mobility  measurement.  To  save  core, 
AVGRB  is  not  yet  loaded. 

_>SETUP 

Establish  A/D  parameters. 

>TRAN1 

Initiates  program  to  measure  Hg(f). 
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INPUT  FORCE  (CH  A)  CEU/V  Operator  connects  force  signal  to 

channel  A input,  inputs  scale  fac- 
tor and  (CR). 

INPUT  ACCEL  (CH  B)  CEU/V  Operator  responds  similarly  for 

acceleration  channel. 

The  program  performs  the  measurements  and  computations  to 
obtain  HD(f).  It  is  placed  in  a complex  floating  point  block 

D 

B8 , displayed,  and  control  is  returned  to  the  operator.  The 
operator  will  normally  inspect  it  and  use  RTIO  calls  to  store 
it  on  disc  as  appropriate.  The  shaker  and  transducing  are 
moved  to  body  A and  the  process  repeated  to  obtain  H^(f).  To 
obtain  smoothed  versions  of  and  Hg,  the  subroutine  AVGRB 
is  loaded. 

>BLKCLR 

>LOAD' AVGRB’ 

The  functions  H^Cf)  and  Hg(f)  are  read  into  memory  by 
manual  calls  to  RTIO  and  smoothed  versions  FT^ ( fc )and  Hg(fc>  are 
computed  using  AVGRB  just  as  was  done  for  component  energy 
functions.  AVGRB  will  handle  either  real  or  complex  blocks. 
H.(f  ) and  HR(f  ) are  manually  stored  as  usual.  This  completes 

A C id  O 

step  6 of  section  3.4.3. 

_>  CLEAR 
>LOAD  ' CLFL' 

>CLF  'HAFile',  ’HgFile’,  kQ,  mA 

' H^File'  File  where  HA(fc>  was  stored  pre- 

viously . 
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1 HgFile ' 


File  where  Hg(fc)  was  stored  pre- 
viously . 


k 


c 


Coupling  stiffness 


m 


‘A 


Mass  of  body  A. 


The  power  transfer  coefficient  2lTfcnAg  is  computed  from 
HA(fc),  Hg(fc),  kc  and  m^  by  CLF  using  equation  3.56  of  this 
report.  This  is  the  predicted  value  of  normalized  transmitted 


power  <1TAB>t/<EA>t- 


The  actual  value  of  frequency-dependent  internal  loss 
factor  hg(fc)  is  formed  under  manual  control  from  the  keyboard 
The  smoothed  spectral  densities  of  transmitted  power  and  com- 
ponent B energy  are  read  into  memory  and  their  ratio  is  formed 
This  is  2-rrf cr)B ( f c ) which  is  then  written  to  disc. 

The  predicted  energy  ratio  is  next  computed  using  the 
predicted  coupling  loss  factor  and  actual  internal  loss  factor 


> CLEAR 


>LOAD  'EBEAL' 


Loads  all  subroutines  needed  to 
compute  <Eg>-(;^<EA>t 


EBEA  'wp^gFile',  'ungFile',  A^/A^ 


' a)r)ABFile ' 


File  where  predicted  weighted  coup- 
ling loss  factor  has  previously  been 
stored . 


' wrigFile ' 


File  where  actual  weighted  internal 
loss  factor  of  plate  B has  been  pre- 
viously stored. 


Area  ratio  of  plates 
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The  predicted  value  of  < Eg> ^_ / < is  computed  using 
eq.  3.8  of  this  report.  It  is  placed  in  a real  floating  block 
B8 , displayed,  and  control  is  returned  to  the  operator.  He  may 
then  inspect  and  store  the  function  as  desired. 

The  actual  values  of  normalized  transmitted  power 

<1IAB>t^<^A>t  an<^  normalized  receptor  energy  are 

computed  under  manual  control  from  the  keyboard.  The  quantity 
<7rAB>t  simP1y  smoothed  spectral  density  of  transmitted 

power  times  the  smoothing  bandwidth.  A similar  interpretation 
holds  for  <Ed>.  and  <E.>. . Since  the  same  smoothing  band  was 
used  throughout,  the  desired  ratio  is  easily  found.  The  pre- 
viously measured  and  smoothed  spectral  densities  are  read  into 
memory  and  divided.  The  ratio  functions  are  then  written  back 
onto  disc. 

Predicted  and  measured  values  for  all  comparison  values 
are  now  available.  The  standard  TSL  plot  routine  was  used  for 
making  most  of  the  figures  of  Chapter  3.0. 
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C . 4 PROGRAM  LISTING 

Subroutine  tables  for  each  load  module  and  source  listing 
for  each  TSL  subroutine  are  as  follows. 


LOAD  'HZACOL' 
. PS TAB 


IOP 

53 

IOALL 

460 

SETUP 

70 

PARAN 

116 

SETADS 

169 

HLET 

34 

ADSET 

1415 

C PHASE 

199 

MORfll 

57 

DISPLY 

1800 

OPEN 

816 

CLOSE 

32 

UR I TEH 

168 

READH 

362 

URITEB 

53 

READB 

61 

UAITIO 

29 

SPFUN 

40 

STORE 

26 

TRAN1 

247 

TOTAL-6217 

> 

LOAD  'CLFL' 

:•  pstab 

OPEN  816 

CLOSE  32 

UR  1 TEH  168 

READH  362 

UR1TEB  53 

READB  61 

UAITIO  29 

SPFUN  40 

DISPLY  1800 

CLF  175 

AUGRB  196 

DISPL2  122 

TOTAL-3854 

> 


LOAD  'PTRANL' 

. PSTAB 

OPEN 

816 

CLOSE 

32 

URITEH 

168 

READH 

362 

URITEB 

53 

READB 

61 

UAITIO 

29 

SPFUN 

40 

PARAfl 

116 

IOALL 

460 

SETUP 

70 

ADSET 

1415 

SETADS 

169 

HLET 

34 

DISPLY 

1800 

IOP 

63 

CPHASE 

199 

LUXPS 

330 

NORM3 

33 

PTRAN 

108 

STORE 

26 

TOTAL-6384 

> 

LOAD  'f-#fGL ' 
.'PSTAB 

OPEN 

816 

CLOSE 

32 

URITEH 

168 

READH 

362 

URITEB 

S3 

READB 

61 

UAITIO 

29 

SPFUN 

40 

DISPLY 

1800 

ADSET 

1415 

SETADS 

169 

HLET 

34 

SETUP 

70 

IOALL 

460 

PAR  ATI 

116 

IOP 

63 

ENERGY 

541 

PSDU2 

168 

NORH2 

81 

TOTAL -6478 
> 

LOAD  'EADDL' 

: PSTAB 

OPEN 

816 

CLOSE 

32 

URITEH 

168 

READH 

362 

URITEB 

53 

READB 

61 

UAITIO 

29 

SPFUN 

40 

DISPLY 

1800 

LABEL 

77 

AUGRB 

154 

STORE 

26 

DISPL2 

53 

EADD 

183 

TOTAL-3854 

> 

LOAD  'EBEAL# 

> PSTAB 

OPEN 

816 

CLOSE 

32 

URITEH 

168 

READH 

362 

URITEB 

53 

READB 

61 

UAITIO 

29 

SPFUN 

40 

DISPLY 

1800 

DISPL3 

122 

EBEA 

88 

TOTAL-3571 

> 
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LIST  I OP 

CREATE  I OP 

10  PRINT  PO,'i  ','j' 

20  goto  13,30,100 

30  INPUT  'KB', PI 
40  PPG  10 

SO  IF  10,4,110,110,60 
60  IF  PI, P3, 10,70,70 
70  IF  PI , P4, 1 10, 110,10 
100  PRINT  P2,'-',P1 
110  RETURN 
END 
> 


LIST  IOALL 
CREATE  I GALL 

10  IOP  'FRAHE  SIZE', 115, '115', 128, 8192 

20  STACK  100, 115, 0,1. ,3,150, 165, .5, 165, 100, 0,1. ,2,1, 1,165, 150 
30  IOP  ' CHANNEL  CODE  1-A  2-B  3-AB ' , 114, ' I 14 ' , 1 , 3 
40  IOP  ' BANDUIDTH' ,R15, 'R1S' ,0, 80000. 

50  IF  R15, 25000,80, 80,60 
60  PRINT  'NO  FILTERS' 

70  IOP  'SANPLE  RATE', R14, 'R14', 1,160000. 

80  IOP  'CHANNEL  A LEUEL,  UOLTS' ,R13, 'R13' ,0, 16 

90  IOP  'CHAMHEL  B LEUEL,  UOLTS' ,R12, 'R12' , 0, 16 

100  IOP  'BUFFER  CODE  0-SINGLE  1 -DOUBLE' , I 13, ' I 13' ,0, 1 

110  IOP  'TRIGGER  0-OFF  1-FIRST  2 -EACH  FRAHE ' , 112, '112', O, 2 

120  IF  112,170,170,130 

130  IOP  'TRIGGER  SOURCE  0-A  1-B  2-EXT', 111, '111 ',0,2 

140  IOP  'TRIGGER  SLOPE  0-POS  1-NEG  2-+OR-  3-DIG' , 110, ' 110' ,0,3 

150  IOP  'TRIGGER  LEUEL  X' ,R1 1, 'Rl 1 ' , -99, 99 

160  IOP  'TRANSIENT  CAPTURE  X (0-OFF )' ,R10, 'R10' ,0,99 

170  IOP  'COUPLING  0- AC  1 -DC' , 19, ' 19' ,0, 1 

180  IOP  'AUERAGE  REflOUAL  0-OFF  1 -REflOUE  ' , 18,  ' 18  ' , 0,  1 

190  IOP  'ZERO  INSERTION  0-OFF  1-ON', 17, ' 17' ,0, 1 

200  IOP  'ERROR  TRAPS  0-ENABLE  1-DISABLE', 16, '16', 0, 1 

210  IOP  'FRAHE  COUNT' , 15, ' 15 ' 

220  IOP  'HANNING  UINDOU  0-OFF  1-ON' , 14, ' 14 ' ,0, 1 
230  RETURN 
END 
> 


LIST  SETADS 
-CREATE  SETADS 
10  BLKCLR 

20  STACK  100,101,102 
30  HLET  10,114, 'XXA  B AB' 

40  STACK  2S0O0 -,R1S,31, 250 

50  MDSET  'SU' , B0, I 15, 10, R0,R13, 'UB ' ,R12 

60  IF  R15,2S000, 80, 80,70 

70  ADSET  'SF',R14,'FL',0 

80  HLET  10,19, 'ACDC' 

90  HLET  11,18, 'DDED' 

100  HLET  12,17, 'DZEZ' 

110  ADSET  'CL', 10, 11,12 
120  HLET  10,16,'ETDT' 

130  HLET  11,113, 'SBDB' 

140  ADSET  10,11 

150  IF  112,210,210,160 

160  HLET  10,112, 'XXTFTE' 

170  PROD  11,111,4 
180  SUN  11,11,110 

190  HLET  11,11, 'APANABADBPBNBBBDEPENEBED' 
200  ADSET  I0,I1,R11,'TC',R10 
210  STACK  152,151,150 
220  RETURN 
END 
> 
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LIST  St  TUT- 

CREATE  SETUP 

10  ERASE 

30  ARC  13 

30  GOTO  13.40,60 

40  IOALL 

SO  RETURN 

6©  ARG  O.PO.I3 

70  IF  13,8,80,100,80 

80  PRINT  'BAD  FILE  SPEC' 

90  RETURN 

J^0Df?PlfT<»PO'Il5'Il‘,'I13'I12'Ill'I10'I9'18'I7'I6'I5'I-4'R1S'R1'4'R13'R“ 

12/ R1 1 / R10 
110  END 
120  RETURN 
END 

> 


LIST  PARA M 
CREATE  PARAH 
10  ARG  13 
20  GOTO  13,30,90 
30  ERASE 

40  PRINT  'CURRENT  SETUP' 

50  PRINT 

80  LET  13, 1 

70  IOALL 

80  RETURN 

90  ARG  0,  PO,  13 

10O  IF  13,8,110,130,110 

110  PRINT  'BAD  FILE  SPEC' 

120  RETURN 

130  URITE  PO, 115, ',',114, ',',113,', ',112, ',',111, ',',110, ',',19 
140  URITE  PO, I8,',',I7,',',I6,',',I5,',',I4,',',R15,',',R14,',',R13,— 
',',R12,',',R11,',',R10 
150  END 
160  RETURN 
END 
> 
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LIST  EBEA 
CREATE  EBEA 

10  REMARK  *ETAAB  .CLF*,  *ETAB  .NAD*  , AA/AB 

20  OPEN  Pd 

3d  READH 

HO  READH  B8 

50  READB  B8 

60  OPEN  PI 

70  READH 

80  READH  B9 

90  READB  B9 

100  CLOSE 

105  HOUE  B8, BIO 

110  flLCONR  P2#B10 

120  ADD  B9,B10 

130  DIU  Bid, B8 

1H0  DISPLV  B8,'EX',0,10O0,'L2S','SC',l.,'G'#'R' 
150  RETURN 
END 
> 


.^LIST  EADD 
CREATE  EADD 

5 RENA RK  *EIFILE*  ,FIRSTREC,  LASTREC 

10  BLKCLR 

20  OPEN  O,P0, 'BJ 

30  READH  0,  B7 

HO  READB  0,B7,'R',0 

50  HOOE  B7,  B8 

60  ZERO  B8 

100  FOR  I0,P1,P2 

110  READB  O,B7,'R',I0 

120  LET  R6,B7,0 

130  LET  B7,0,0. 

1H0  flLCONR  R6,B7 
150  ADD  B7,B8 
160  NEXT  10 
170  MOUE  B8,B7 
180  BIBSET  B7,5, 115 
190  BIBSET  B7,6,R1 
200  OUOT  R1,R1,2. 

210  OUOT  R1,R1, 115 

215  flLCONR  R1,B7 

220  INTG  B7 

22S  DIF  115,115,1 

230  LET  R2,B7, 115 

250  PRINT  * INPUT  AUG.  FACTOR' 

260  INPUT  R1H 

265  DISPLV  B8, 'VLAB', 'NRG/HZ', 'R' 

270  AOCRB  B8, B9, R1H 
280  BEANP  550,700 

290  PRINT  ‘'TOTAL  ENERGY  - ',R2,  ' C.E.U.' 

300  RETURN 
END 
> 


LIST  N0RN2 
CREATE  N0RN2 

10  REMARK  GIUES  S.S.  EU»12/HZ 
20  BIBSET  B7,6,R7 
30  BIBSET  B7,S, 13 
HO  OUOT  R7,R7,H. 

50  OUOT  R7, 13, R7 
60  OUOT  R7,R7, 15 
70  PROD  R1H,R8,R8 
80  PROD  R1H,R7,R1H 
90  flLCONR  R1H,B7 
100  PROD  R1H,R9,R9 
110  PROD  R1H,R7,R1H 
120  flLCONR  R1H,B8 
130  PROD  R7,I5,R7 
1HO  OUOT  R7,2.,R7 
150  RETURN 
END 


LIST  PS  DM2 
CREATE  PS DM2 
10  LET  1 14, 3 
20  SET  ADS 
30  FOR  10,1,15 
40  ADSET  * SA  0 
50  DPT  B0,  14 
60  DPT  Bl, 14 
70  ASPEC  B0,B7 
80  ASPEC  B1,B8 
90  NEXT  10 
100  NORM2 

110  PROD  R1,6.283,R7 
120  DOME  B7,B10 
130  STCONR  R1,B10 
140  LET  B10,0,O. 

150  INTO  B10 
160  HUE  B10,B1O 
170  LET  B10,0,1. 

180  FOR  10,0,2 
190  LET  B7,IO,0. 

200  LET  B8, 10,0. 

210  NEXT  10 
220  DIM  B10,B7 
230  DIM  B10,B8 

240  DISPLV  B7,'YLAB','S(F)','R' 

250  DISPLV  B7, 'GLAB ' , 'MELOCITY  PSD','R' 
260  DISPLV  B7,  'M',  'EX',0,R15,  'G', 'R' 

270  DISPLV  B8,'NG','M','EX',6,R15,'G','R' 
280  RETURN 
END 
> 


.1ST  ETCRGY  320 

CREATE  ENERGY  330 

3 REMARK  *EFILE*  , "TEXT*  , MAX  OR  340 

4 REMARK  NEXTREC,MASS,C*N*3  350 

10  BUCCLR  360 

20  PRINT  'CM  A EU^'UOLT * 370 

30  INPUT  R8  380 

40  PRINT  'CM  B EU/MOLT'  390 

50  INPUT  R9  400 

60  ARG  10  420 

70  IF  10,4, 2S0, 250,90  440 

80  REMARK  INITIALIZE  NEU  FILE  460 

90  SETADS  470 

100  ADSET  'SA'  480 

110  DPT  B0  490 

120  ASPEC  B0,B7  500 

130  ZERO  B7  510 

140  OPEN  P0,'N','B'  520 

145  URITEH  B7,P1  530 

150  SUM  12,  P2,  1 540 

160  FOR  11,1,12  550 

180  URITEB  B7  560 

190  NEXT  II  570 

200  CLOSE  580 

210  LET  11,1  590 

2 20  SUM  12,11,1  600 

230  GOTO  270  610 

240  REMARK  OLD  FILEtSET  POINTERS  620 

250  LET  II, P2  630 

260  SUM  12,11,1  640 

270  REMARK  ACQUIRE  DATA  FOR  PSDM  FILS50 

280  LET  R6,P3  660 

290  PRINT  /CH. A TO  POINT  ',11  670 

300  PRINT  'CH.B  TO  POINT  ',12  680 

310  HOLIN  690 


PRINT  ' CCR ) TO  BEGIN' 

HOLIN  13 

IF  13,13,330,350,330 
PRINT  ' NOU  ACQUIRING' 

PS  DM2 

REMARK  STORE  rV*SS  AS  DC  MALUE 
LET  B7,0,R6 
LET  B8,0,R6 
OPEN  PO,'B' 

URITEB  B7,I0,'R',I1 
URITEB  B8,I0,'R',I2 
IF  10,0,470,490,470 
PRINT  'URITEB  ERROR' 

RETURN 

PRINT  'UHAT  NOU?' 

PRINT  ' PROCEED  (PR)' 

PRINT  ' REPEAT  (RE)' 

PRINT  ' PAUSE  (PA)' 

PRINT  ' EXIT  (EX)' 

HINPUT  13, 'PR' , 'RE' , 'PA' , 'EX' 
IF  13,1,560,610,560 
IF  13,2,570,290,570 
IF  13,3,580,650,580 
IF  13,4,590,640,590 
PRINT  'UHAT?' 

GOTO  540 
SUM  11,11,2 
SUM  12,11,1 
GOTO  290 
RETURN 

PRINT  'DISPLAY  A OR  B?' 

HINPUT  I3,'A','B' 

IF  13,1,680,710,680 
IF  13,2,690,730,690 
PRINT  'UHAT?' 


TOO  GOTO  660 

710  DISPLV  B7,  H','EX',0,R15,'G' 
720  GOTO  490 

730  DISPLV  B8,'M','EX',0,R15,'G' 

740  GOTO  490 

7SO  RETURN 

END 

> 
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LIST  PTRAN 
CPEA TE  PTRAN 

ie  PRINT  'PTRAN  MEASURES  POUER  ' 

IS  PRINT  'FLOU  INTO  BODY  2 FROM' 

17  PRINT  'FORCE  AND  ACCELERATION' 

18  PRINT  'AT  THE  COUPLING  POINT' 

30  PRINT 

35  PRINT  ' INPUT  FORCE  <CH  A)  CEU/U' 
50  INPUT  R8 

60  PRINT  'INPUT  ACCEL  <CH  B)  CEU/U' 
75  INPUT  R9 
80  LUXPS 
90  RETURN 
END 
> 


LIST  N0RM3 
CREATE  NORM3 
10  BIBSET  B7,6,R7 
12  OUOT  R0, 115, R7 
14  OUOT  R0,RO,IS 
20  PROD  R0,R0,R8 
30  PROD  RO,RO,R9 
lOO  MLCONR  RO,B7 
110  RETURN 
END 
> 


LIST  LUXPS 
CREATE  LUXPS 

10  REMARK  COMPUTE  L-A  XPS 
20  LET  114,3 
30  SET  ADS 
40  FOR  10,1,15 
50  ADSET  'SA' 

60  DFT  BO, 14 
70  DFT  B 1 , 14 
80  CSPEC  B0,B1,B7 
90  NEXT  10 
IOC  C PHASE  B7, 1 
110  N0RM3 

120  REMARK  CREATE  OMEGA  IN  BIO 

130  IMAG  B7,B8 

140  MOUE  B8, BIO 

150  BIBSET  B7, 6, R7 

160  OUOT  R1 , I 15, R7 

170  OUOT  R1,6.283,R1 

180  STCONR  R1 , BIO 


340  LET  R3, B7, 10 

350  REMARK  DISPLAY  OUTPUT 

360  DISPLY  B8,  'EX',0,R15,  'YLAB',  ' '/ 

G', 'R' 

370  BEAMP  20,600 

380  PRINT  'TRANSMITTED' 

390  BEAMP  0,580 

400  PRINT  'POUER  SPECTRAL' 

410  BEAMP  40,560 
420  PRINT  'DENSITY' 

430  BEAMP  412,740 

440  PRINT  'TRANSMITTED  POUER  - ',R3,  ' 
C.E.U.' 

450  BEAMP  650,710 
460  PROD  R4,R3, 10O000O. 

470  PRINT  ' - ',R4, 'MICRO  CEU' 

480  RETURN 

END 

> 


190  LET  BIO, 0,0. 

200  INTG  BIO 

210  LET  BIO, 0,1.  

220  REMARK  COMPUTE  TRANSMITTED  POUER 

230  REMARK  WD  ITS  SPECTRAL  DENSITY 

240  DIU  B10, B8 

250  OUOT  R2,R1,6.283 

260  LET  B8, 0, 0 • 

270  LET  B8, 1,0. 

280  MLCONR  2.,B8 
290  MOUE  B8,B7 
300  MLCONR  R2,B7 
310  INTG  B7 
320  BIBSET  B7,5,I0 
330  DIF  10,10,1 
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LIST  DISPL2 
CREATE  DISPL2 
10  REMARK  XMAX,  VNAX,  IFLOG 
20  ARC  17 

30  IF  17,3,40,70,70 

40  DISPLV  B8,'P','EX',0,P0,'SC',P1,'G','R' 

50  DISPLV  B9,'C','EX',0,P0,'SC',P1#'NG','G','R' 

60  GOTO  90 

70  DISPLV  B8,  *P*  0 'L50' , 'EX' ,0,P0,  'SC' ,P1,  'G'  , 'R' 

80  DISPLV  B9,  'C',  'NG'#'L56'#  'EX'#O,P0,  'SC', PI,  'G', 'R' 
90  BEAHP  550,740 

lOO  PRINT  ' AOGNG  BU.  - ' ,R1, ' HZ. * 

110  RETURN 
END 
> 


LIST  AUGRB  330  RETURN 

CREATE  AUGRB  END 

10  REMARK  SRCBLK, DSTBLK, AUGFCT  > 

20  MOUE  P0,P1 
30  ZERO  PI 
40  BIBSET  P0,S,I15 
50  BIBSET  P0,6,R1 
60  OUOT  R1,R1,2. 

70  OUOT  R1,R1,P2 

80  OUOT  114, 115, P2 

90  DIF  113,115,114 

100  DIF  113,113,1 

110  OUOT  112,114,2 

120  FOR  111,0,113 

130  BIBSET  PO, 4, 18 

140  BIXDEF  B0, 114, I8,P0, 111 

150  MOUE  B0,B1 

160  INTO  B 1 

170  DIF  110,114,1 

180  IF  18,1,190,190,240 

190  LET  R0, B1 , I 10 

200  OUOT  RO,R0, 114 

210  SUN  19,112,111 

220  LET  PI , 19,  RO 

230  GOTO  280 

240  LET  C0,B1, 110 

245  OUOT  R2, 1 • , I 14 

2S0  STACK  202,300,9,350 

260  SUN  19,112,111 

270  LET  PI, 19, CO 

280  NEXT  111 

290  DISPLV  PO,'P','G','R' 

300  DISPLV  P1,'NG','G','R' 

310  BEANP  550,740 

320  PRINT  'AUCNC  BDUTH  • ',R1, ' HZ.  ' 


>LIST  CLF 
CREATE  CLF 

S REMARK  •HAFILE*  , "HBFILE*  ,KC,NA 
10  OPEN  P0 
20  READH 
30  READH  B10 
40  READB  B10 
50  CLOSE 
60  PRINT 
70  OPEN  PI 
80  READH 
90  READH  Bll 
lOO  READB  Bll 
110  CLOSE 
120  ASPEC  B10,B8 
130  ZERO  B8 
140  ASPEC  B10,B9 
150  ZERO  B9 
160  ADD  Bll, BIO 
170  BIBSET  Bll ,6,R7 
180  BIBSET  Bll, 5,10 
190  OUOT  R1,R7, 10 
200  PROD  R1 ,R1,3. 141 
210  MOUE  Bll , B12 
220  STCONR  R1,B9 
230  ZERO  B8 
240  CONPLX  B9, B8, B12 
2S0  HOUE  B12, Bll 
260  INTO  Bll 
270  SUB  B12,B11 
280  OUOT  R2, 1 • ,P2 
290  P1LCOHR  R2,BU 
300  MOUE  Bll , B12 
310  ADD  Bll, BIO 
320  ASPEC  B10,B9 


330  OPEN  PI 
340  READH  Bll 
350  READB  Bll 
360  CLOSE 
370  REAL  B11,B8 
380  DIU  B9,B8 
390  OUOT  R2, 1 . ,P3 
400  MLCONR  R2, B8 
420  RETURN 
END 
> 
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LIST  TRAN1 
CREATE  TRiVU 
10  LET  114,3 

20  PRINT  ' INPUT  FORCE  CCH  A)  CEU/U 
30  INPUT  R8 

40  PRINT  * INPUT  ACCEL  (CH  B)  CEU/V 
SO  INPUT  R9 
SO  SET ADS 
70  FOR  10,1,15 
80  ADSET  * SA  * 

90  DFT  BO, 14 

100  DFT  Bl, 14 

110  CSPEC  B0,B1,B7 

120  ASPEC  BO,BS 

130  ASPEC  B1,B6 

140  NEXT  10 

150  CPHASE  B7, 1 

ISO  NORTH 

170  HOUE  B5,B1 

180  NOUE  B5,B0 

190  BIBSET  BO, 6, R7 

200  BIBSET  BO, 5, 10 

210  OUOT  R1 ,R7, 10 

220  OUOT  R1 , Rl,2 

230  PROD  R1,R1,6.283 

240  STCONR  R1 , BO 

2S0  STCONR  R1 , Bl 

2S0  INTG  BO 

270  SUB  Bl ,B0 

280  LET  B0,0,R1 

290  NLCONC  (0.,-l.),B7 

300  DIU  BO, B7 

310  DIU  B0,B6 

320  DIU  B0,B6 

330  FOR  10,0,2 


340  LET  B5, I0,BS,3 

350  LET  B6,I0,B6,3 

3S0  LET  B7,I0,B7,3 

370  NEXT  10 

380  BIBSET  B7,S,I0 

390  BLKDEF  B8,I0,2,B0,O 

400  NOUE  B7,B8 

410  DIU  BS,B8 

420  NOUE  B7,B9 

430  ASPEC  B9,B9 

440  DIU  B5,B9 

450  DIU  B6,B9 

460  DISPLV  B8,'EX/,0,Rl5,'G/#/R 
470  RETURN 
END 
> 


LIST  NORTH 
CREATE  r*GRni 
10  BIBSET  B7,6,R7 
20  OUOT  RO,  I IS,  R7 
30  OUOT  RO, RO, 15 
40  NLCONR  R8,B5 
50  NLCONR  R8,BS 
SO  NLCONR  R9,B6 
70  NLC0T4R  R9,B6 
80  NLCOT4R  R8,B7 
90  NLCONR  R9,B7 
lOO  NLCOTR  RO, B5 
110  NLCONR  RO, B6 
120  NLCONR  RO,B7 
130  RETURN 
END 
> 


LIST  CLFD 
CREATE  CLFD 

5 REMARK  "HAF ILE* , "HBFILE* ,NA 

8 PENARK  -DIRECT  CONNECTION-  UERSION  OF  CLF 

10  OPEN  PO 

20  READH 

30  READH  BIO 

40  READB  BIO 

50  CLOSE 

70  OPEN  PI 

80  READH 

90  READH  Bl 1 

100  READB  Bl 1 

110  CLOSE 

ISO  ADD  Bl 1 , BIO 

320  ASPEC  BIO, B9 

330  OPEN  PI 

340  READH  Bll 

350  READB  Bll 

360  CLOSE 

370  REAL  Bll, B8 

380  DIU  B9,B8 

390  OUOT  R2, 1 • , P2 

400  NLCONR  R2,B8 

420  RETURN 

END 

> 
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APPENDIX  D 


FUSELAGE  MODEL  LISTING 
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FULL  FuStLAbE.  FKE.t  VlbhATiUN 

1U  FUS.toUDt 

3N  A S T k A Ik  i*<SC 

®LUUF  F A L 1 U,2 

SLUUF  Dl N YtS 

3>lUUF£CmG  YtS 

SUL  25,0 

CFU\Pi>n  YtS 

TIME.  20 

DIAL  6 

CtivD 

11lLt=FULL  FUStLAGt  MODtL 
SUbUTLtsF  1KSI  MOUt 
tCHU=NUNL 
MtTFlUD  = 2 

dynrld=2 

D 1 SP  = ALL 
btGIN  BULK 


LURD2R 

1 

0 

0. 

♦ CCl 

1. 

0. 

0. 

GRID 

100 

1 

26,200 

9 

GRID 

1100 

1 

26,200 

-9 

UK  1 1) 

101 

1 

27.900 

5 

GRID 

1 lol 

1 

27.900 

-5 

GRID 

102 

1 

26,600 

1 

GRID 

1102 

1 

26,800 

-7 

GRID 

103 

1 

29,90 

GRID 

1103 

1 

29,90 

-9 

GRID 

1 09 

1 

22,200 

1 1 

GRID 

1109 

1 

22.200 

-11 

GRID 

105 

1 

16,200 

13 

GRID 

1 105 

1 

1 6 , 20 0 

-13 

GRID 

106 

1 

19.200 

15 

GRID 

1106 

1 

19,200 

-15 

GRID 

107 

1 

10,100 

19 

GRID 

1107 

1 

10.100 

-19 

GRID 

108 

1 

6 , 0 0 0 

19 

GRID 

1108 

1 

6,000 

-19 

GRID 

109 

1 

1,500 

1 1 

GRID 

1109 

1 

1.500 

-11 

GRID 

110 

1 

-3,906 

7 

GRID 

1110 

1 

-3.908 

-7 

GRID 

1 1 1 

1 

-9, 120 

5 

GRID 

1111 

1 

-9,120 

-5 

GRID 

1 12 

1 

-5,290 

0 

GRID 

113 

1 

26,600 

7 

GRID 

1 113 

1 

26,600 

-7 

GRID 

119 

1 

22,200 

12 

GRID 

1119 

1 

22,200 

-12 

GRID 

115 

1 

19.200 

15 

0.  0,  0.  1.+CC1 

0,000 
0,000 
0,000 
0,000 
0,000 
0,000 
0 , 0 
0,0 
0,000 
0,000 
0,000 
0,000 
0,000 
0,000 
0,000 
0.000 
0,000 
o.ooo 
0.000 
0,000 
0,000 
0,000 
0,000 
0,000 
0,000 

6,250 

6.250 

6.250 

6.250 

6,250 


0, 

000 

000 

600 

800 

097 

097 

.90 

900 

391 

391 

361 

361 

Oil 

Oil 

996 

9 96 

168 

188 

750 

750 

787 

787 

003 

003 

000 

710 

710 

920 

920 

860 
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GRID 

1 lib 

GN  1 D 

lib 

l»KiL> 

111b 

i»N  1 D 

11? 

GR 1 D 

1117 

GRID 

lib 

GNU) 

119 

GNU) 

1119 

GRID 

120 

grid 

1120 

GkID 

121 

GRID 

122 

GRID 

1122 

GRID 

200 

GRID 

1200 

GRID 

201 

GRID 

1201 

grid 

202 

GRID 

1202 

GRID 

203 

GRID 

1203 

GRID 

204 

GRID 

1204 

GRID 

20b 

GR I D 

120b 

GRID 

20b 

GRID 

120b 

GRID 

207 

GRID 

1207 

GRID 

208 

GRID 

1 20b 

GRID 

209 

GRID 

1209 

GRID 

210 

GRID 

1210 

GRID 

211 

GRID 

1211 

GRID 

212 

GRID 

213 

GRID 

1213 

GRID 

214 

GRID 

1214 

GRID 

215 

GRID 

1215 

GRID 

216 

GRID 

1216 

GRID 

217 

GRID 

1217 

GRID 

218 

GRID 

219 

14,200 

-15,866 

6,256 

b,  660 

15,416 

6,256 

b , 6 6 0 

-15,416 

6.256 

-3.264 

10,176 

b.250 

-3.264 

-16,170 

6,250 

-b , 250 

0.600 

6,250 

28.400 

4,200 

6,250 

28.400 

•4,200 

6,250 

-4,750 

7,590 

6,250 

-4, 7bO 

-7,590 

6,250 

28,560 

0,006 

0,000 

28,560 

2.400 

0,000 

28,566 

-2,400 

0,600 

28,666 

4.393 

12.500 

28.600 

-4,393 

12,500 

27,800 

6.800 

12,500 

27,800 

-6, 800 

12,500 

2b , b0  0 

8,313 

12,500 

2b, 600 

-8,313 

12,500 

24,406 

1 1.600 

12,500 

24,400 

-1 1 ,bO0 

12,500 

22.200 

13,500 

12,500 

22,206 

•13.500 

12,500 

19,440 

15,116 

12,506 

19,446 

-15,110 

12,500 

14,200 

16, 700 

12,500 

14,200 

-16,700 

12,500 

10.100 

16.750 

12,500 

10.106 

-16,750 

12,500 

6.000 

lb.t>39 

12.500 

6,000 

-10,639 

12,500 

1,500 

15,098 

12,500 

1,500 

-15,098 

12,500 

-3,600 

12,558 

12,500 

-3,000 

-12,558 

12,500 

-5.120 

10,345 

12,500 

-5.126 

-10,345 

12,500 

-7,240 

0.000 

12,500 

26.600 

9,240 

19,500 

26,600 

-9,240 

19,500 

22,200 

14,200 

19,500 

22.200 

-14,200 

19,500 

14,200 

16,840 

19,500 

14.200 

-16,840 

19,500 

4.550 

16,720 

19,506 

4,550 

-16,720 

19,500 

-3,750 

13,280 

19,500 

-3,750 

-13,280 

19,500 

-8,b30 

0,000 

19,500 

28,766 

5,120 

19,500 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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b w i o 

1219 

bH  1 U 

dd  o 

GkIu 

I22u 

bKll) 

dd  l 

b K 1 0 

idd  l 

bull) 

ddd 

GRID 

1222 

GRID 

223 

GRID 

dd  4 

GRID 

1224 

GRID 

ddb 

GRID 

1 226 

GRID 

dd! 

GRID 

1227 

GRID 

300 

GRID 

1300 

GRID 

301 

GRID 

1301 

GRID 

302 

GRID 

1302 

GRID 

303 

GRID 

1303 

GRID 

304 

GRID 

1304 

GRID 

305 

GRID 

1305 

GRID 

30b 

GRID 

1306 

GRID 

3o7 

GRID 

1307 

GRID 

309 

GRID 

1309 

GRID 

310 

GRID 

1310 

GRID 

311 

GRID 

1311 

GRID 

312 

GRID 

313 

GRID 

1313 

GRID 

314 

GRID 

1314 

GRID 

315 

GRID 

1315 

GRID 

31b 

GRID 

131b 

GRID 

318 

GRID 

319 

GRID 

1319 

GRID 

320 

GRID 

1320 

2b.  7o0 

-5.120 

1 9,500 

-7.200 

2,750 

12,5o0 

-7,200 

-2,750 

12.500 

- 7 , 200 

1 . 750 

12,500 

-7,200 

-1,750 

12,500 

-8 , 5bo 

3,000 

19,500 

-8.580 

-3,000 

19,500 

29.200 

0,000 

12.500 

29,100 

2,600 

12,500 

29.100 

-2.600 

12,500 

-5.80 

3.0 

19,50 

-5,80 

-3,000 

19,50 

-6,80 

3.0 

19,50 

-b  ,80 

-3,000 

19,50 

28,920 

5,840 

2b,500 

28.920 

-5,840 

26,500 

28.000 

8.300 

26,500 

28.000 

-8,300 

26.500 

26,600 

10.176 

26,500 

26.600 

-10,176 

26,500 

24,400 

12.826 

26,500 

24.400 

-12,826 

26,500 

22,200 

14,892 

26,500 

22,200 

-14.892 

26,500 

18.200 

16,651 

2 6,500 

18.200 

-16,b51 

2b,500 

14,200 

16.975 

26,500 

14,200 

-16.975 

26,500 

10,100 

17.009 

26,500 

10,100 

-17,009 

26,500 

3,100 

16,800 

26,500 

3.100 

-16.800 

26,500 

0.000 

15.750 

26,500 

0,000 

-15,750 

26,500 

-4,500 

14,000 

26,500 

-4,500 

-14,000 

26,500 

-10,000 

0.000 

26,500 

26,600 

10,890 

33,000 

26,600 

-10,890 

33,000 

21.600 

15,500 

33,000 

21.600 

-15,500 

33,000 

14,200 

17,500 

33,000 

14,200 

-17,500 

33,000 

4,550 

17,330 

33,000 

4,550 

-17,330 

33,000 

-11,000 

0,000 

33,000 

29,490 

5.950 

33,000 

29.490 

-5.950 

33,000 

-9,950 

3,250 

26,500 

-9,950 

-3,250 

2b, 500 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


400 


l»  K 1 D 

32  1 

l»K  1 D 

1321 

GRID 

322 

uRID 

idi 

GRID 

1323 

GRID 

id* 

GRID 

1324 

GRID 

id  5 

GRID 

326 

GRID 

1 326 

GRID 

327 

GRID 

1327 

GKlD 

Sdb 

GRID 

1328 

GRID 

330 

GRID 

1330 

GRID 

331 

GRID 

1331 

GRID 

332 

GRID 

1332 

GRID 

333 

GRID 

1333 

GRID 

334 

GRID 

1334 

GRID 

335 

GRID 

1335 

GRID 

336 

GRID 

1336 

GRID 

337 

GRID 

336  1 

GRID 

13361 

GRID 

339 

GRID 

340 

GRID 

1340 

GRID 

341 

GRID 

1341 

GRID 

400 

GRID 

1400 

GRID 

401 

GRID 

1401 

GRID 

402 

GRID 

1402 

GRID 

403 

GRID 

1403 

GRID 

404 

GRID 

1404 

GRID 

405 

GRID 

1405 

GRID 

406 

GRID 

1406 

-9, UOO 

7,000 

26,500 

-v, ouo 

-7.000 

2b , 500 

0 , OU0 

0,000 

2b, 500 

0,500 

3.250 

2b, 500 

0,500 

-3,250 

2b, 500 

-7.960 

9.170 

33,000 

-7.960 

-9,170 

33,000 

29,990 

0.000 

26,500 

29.900 

3,500 

26,500 

29,900 

-3,500 

26,500 

-2,00 

3.25 

26,50 

-2,00 

-3.250 

26,50 

-7.25 

3.25 

26.50 

- 7.25 

-3,250 

26,50 

0,250 

1,630 

26,500 

0,250 

- 1 , 630 

26,500 

1.600 

10.030 

26,500 

1,600 

-10.030 

26.500 

-4.500 

6.630 

26,500 

-4.500 

-8,630 

26,500 

-2,250 

1.630 

26,500 

-2.250 

-1.630 

26,500 

-4,500 

3.250 

26,500 

-4,500 

-3.250 

26,500 

10,000 

1,630 

26,500 

10,000 

-1,630 

26,500 

-7.250 

1.630 

26,500 

-7.250 

-1.630 

26,500 

-5.000 

0.000 

26,500 

20  1 

7.20  33 

>,00 

20 

-17.20033 

>,00 

0.000 

0,000 

33,000 

-5,250 

14,550 

33,000 

-5,250 

-14,550 

33,000 

0,250 

1.630 

33,000 

0.250 

-1.630 

33,000 

30.050 

6,060 

39,500 

30.050 

-6, 060 

39,500 

26.000 

9,200 

39,500 

26,000 

-9,200 

39,500 

26,500 

11,600 

39,500 

26,500 

-11,600 

39,500 

24,400 

13.565 

39,500 

24.400 

-13,565 

39,500 

21.000 

16.100 

39,500 

21,000 

-16,100 

39,500 

16,200 

17,296 

39,500 

18,200 

-17,296 

39,500 

14,200 

18,027 

39,500 

14,200 

-18,027 

39,500 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


401 


UK  1 0 

40  7 

GR 1 D 

14U7 

GRID 

40tt 

GRID 

1408 

UK  1 D 

409 

GRID 

1409 

GRID 

410 

GRID 

1410 

GRID 

411 

GRID 

1411 

GRID 

412 

GRID 

4 13 

GRID 

1413 

GRID 

4 1 4 

GRID 

1414 

GRID 

415 

GRID 

1415 

GRID 

417 

GRID 

1417 

GRID 

4 18 

GRID 

419 

GRID 

1419 

GRID 

420 

GRID 

1420 

GRID 

421 

grid 

1421 

GRID 

422 

GRID 

423 

GRID 

1423 

GRID 

426 

GRID 

1426 

GRID 

427 

GRID 

1427 

GRID 

428 

GRID 

1428 

GRID 

429 

GRID 

1429 

GRID 

430 

GRID 

431 

GRID 

1431 

GRID 

500 

GRID 

1500 

GRID 

501 

GRID 

1501 

GRID 

502 

GRID 

1502 

GRID 

503 

GRID 

1503 

GRID 

504 

GRID 

1504 

10.100 

18,116 

39,500 

1 0. 1 00 

-16,116 

39,500 

6.000 

17,859 

39,500 

6.000 

-17.859 

39,500 

4. 500 

17,768 

39,5o0 

4.500 

-17,768 

39,500 

3.200 

17.592 

39,500 

3,200 

-17,592 

39,500 

-1.380 

le,940 

39,500 

-1.380 

-16,940 

39,500 

12,000 

0,000 

39,500 

26,600 

12,550 

46,880 

26,600 

-12,550 

46,880 

21,600 

16,650 

46,880 

21.600 

-16,650 

46,880 

14,700 

18,760 

46,880 

14.700 

-18.760 

46,880 

-6 , 50  0 

15,570 

46,880 

-6,500 

-15,570 

46,880 

13,000 

0.000 

46,880 

30,325 

6,580 

46,880 

30.325 

-6,580 

46,860 

10,330 

10,870 

39,500 

10.330 

-10.870 

39.500 

-6,000 

15,090 

39,500 

-6.000 

-15.090 

39,500 

0,000 

0,000 

39,500 

10.000 

11.270 

46,880 

10,000 

-11,270 

46,680 

14,450 

17.710 

46,880 

14.450 

-17.710 

46,880 

10.350 

17.630 

46.880 

10,350 

-17,630 

46,880 

3.100 

15,870 

46,880 

3.100 

-15.870 

46,880 

-6,500 

14,050 

46,880 

-6,500 

-14,050 

46,880 

0,000 

0.000 

46,880 

1.600 

6.800 

39,500 

1.600 

-8.800 

39,500 

30.600 

7,100 

54,250 

30,600 

-7,100 

54,250 

28.600 

11.000 

54,250 

28.600 

-11.000 

54,250 

26.600 

13,500 

54,250 

26.600 

-13,500 

54,250 

24,400 

16,114 

54,250 

24,400 

-16,114 

54,250 

22.200 

17,200 

54,250 

22.200 

-17,200 

54,250 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

l 

l 

l 

l 

l 

l 

l 

i 

l 

l 

l 

l 

l 

l 


402 


GRID 

Sob 

1 18,200 

19,000 

54.250 

OHIO 

1 bob 

1 18,200 

-19,000 

54.250 

GRID 

b06 

1 15,200 

19.500 

54,250 

GRID 

1 b06 

1 15,200 

-19,500 

54,250 

GRID 

bo  7 

1 14,700 

17,400 

54,250 

OHIO 

1 bO  7 

1 14,700 

-17,400 

54,250 

OK  1 0 

5()8 

1 3,070 

14,143 

54,250 

OKU) 

I b08 

1 3, 070 

-14,143 

54.250 

OKU) 

S09 

1 "7,000 

13,000 

54,250 

GRID 

1 b09 

1 -7,000 
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